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SUMMARY 


The  hydraulic  system  frequency  response  (HSFR)  computer  program  was 
developed  to  simulate  the  dynamic  response  of  a hydraulic  system  to  the  acoustic 
noise  generated  by  the  pump.  A detailed  technical  description  of  the  program 
is  presented. 

For  a selected  system  pressure,  temperature,  flow,  and  pump  speed  range, 
the  program  calculates  the  pulsation  pressure  and  energy  levels  generated 
by  the  pump.  It  predicts  the  amplitude  and  location  of  the  resulting  acoustical 
standing  waves,  and  how  these  waves  are  transmitted  and  attenuated  throughout 
the  hydraulic  system.  The  program  may  be  used  for  acoustical  analysis  in  the 
pressure  side  or  both  the  pressure  and  return  sides  of  the  hydraulic  system. 
Estimated  line  lengths  and  sizes  from  preliminary  design  work  give  a good 
estimate  of  hydraulic  system  natural  frequencies  and  pressure  amplitudes. 

The  program  outputs  plots  of, the  peak  flow,  pressure,  and  impedance  amplitudes 
of  any  selected  harmonic  of  the  pulsation  noise  versus  pump  speed  for  selected 
locations  in  the  system.  In  addition,  the  program  outputs  plots  of  total 
acoustic  energy  density  and  intensity  (power)  versus  pump  speed. 
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1.0  INTRODUCTION 


The  Hydraulic  System  Frequency  Response  (HSFR)  program  predicts  how 
oscillatory  flows  and  pressures  caused  by  the  acoustical  energy  content  of  a 
hydraulic  pump  output  are  transmitted  through  the  lines  and  components  of  a 
hydraulic  system.  Resonance  can  occur  if  a frequency  of  this  oscillatory 
output  coincides  with  a natural  frequency  of  the  system,  or  of  part  of  the 
system.  Patterns  of  standing  waves  similar  to  those  observed  in  organ  pipes 
are  generated.  A resonant  condition  can  produce  large  oscillatory  pressure 
and  flow  amplitudes.  Resonant  acoustical  noise  can  cause  excessive  line 
motion  and  stresses,  resulting  in  premature  failure  of  system  lines  or  com- 
ponents. 

The  HSFR  program  predicts  the  pump  speeds  at  which  major  resonances 
occur,  and  defines  the  amplitude  and  location  of  the  oscillatory  pressure 
and  flow  standing  waves.  The  description  of  the  system  being  simulated 
is  easily  changed  to  investigate  various  practical  system  modifications  for 
the  attenuation  and  relocation  of  the  major  resonant  conditions.  This  capa- 
bility allows  potential  problems  related  to  hydraulic  acoustic  energy  to  be 
eliminated  during  the  design  stage. 

The  HSFR  program  includes  subroutines  which  model  lines,  a rotating  axial 
piston  pump,  and  other  components  found  in  aircraft  hydraulic  systems.  The 
modular  construction  of  the  program  allows  additional  subroutines  describing 
other  components  to  be  easily  inserted.  A special  functional  subroutine, 
GRAPH2,  is  called  by  the  main  program  for  plotting  the  calculated  variables 
vs.  pump  speed.  The  program  calculates  the  required  fluid  properties  at  the 
specified  temperature  and  pressure  via  a special  functional  subroutine, 


FLUID 


A detailed  technical  description  of  the  HSFR  computer  program  and  all 
subroutines  used  by  the  program  are  included  herein.  Volume  III  of  this  re- 
port, under  separate  cover,  contains  a user's  manual  for  the  HSFR  computer 
program. 

The  program  is  written  in  Fortran  IV  language  for  use  on  the  CDC  6600 
or  IBM  360  computer  systems.  A punched  card  deck  is  used  to  input  the 
program  to  the  machine  while  output  is  by  line  printer. 
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2.0  TECHNICAL  SUMMARY 

The  HSFR  program,  which  operates  in  the  frequency  domain,  examines  each 
element  of  the  system  in  turn,  excluding  the  pump,  and  via  the  appropriate 
subroutine,  calculates  a 2 x 2 matrix  relating  input  fiow  and  pressure  to 
output  flow  and  pressure  for  the  fundamental  harmonic  frequency.  These 
matrices  are  used  to  calculate  the  input  impedance  at  each  element  in  the 
system,  starting  with  the  terminating  element  in  the  circuit  and  computing 
the  input  impedance  at  each  element  back  to  the  pump.  Matrix  and  input 
impedance  calculations  are  repeated  for  each  harmonic  frequency  of  the  pump 
speed  up  to  and  including  the  harmonic  specified  in  the  input  data. 

Impedance  calculated  at  the  pump  provides  the  linear  phase  and  gain 
relationship  between  the  harmonic  flows  from  the  pump  into  the  load  (system) 
and  the  corresponding  pressures  across  the  load.  This  load  impedance  is 
passed  to  the  pump  subroutine. 

The  pump  subroutine  models  a rotating,  axial  nine-piston  hydraulic  pump, 
and  establishes  the  nonlinear  relationship  between  pump  output  flow  and 
pressure  in  the  time  domain.  An  iterative  technique  is  used  to  obtain  the 
balance  between  the  output  flow  and  pressure  relationships,  utilizing  the 
load  impedance  from  the  main  program.  The  balance  is  obtained  in  the  time 
domain,  although  a check  is  performed  in  the  frequency  domain.  The  complex 
acoustic  flow  output  of  the  pump  is  characterized  into  harmonic  flows  by 
Fourier  analysis.  The  pump  inlet  flow  and  pressure  may  also  be  calculated  by 
the  pump  subroutine.  The  calculation  technique  is  the  same  as  that  used  in 
the  outlet  flow  calculation.  Pump  inlet  analysis  is  performed  at  the  option 
of  the  user. 

Detailed  physical  dimensional  pump  data  are  input  along  with  other 
system  element  data.  Precompression,  decompression,  piston  stroke,  variable 
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valve  opening  and  closing,  fluid  bulk  modulus,  pump  internal  leakage,  and 
cavitation  effects  are  included.  Steady  state  output  pressure  or  swash 
angle  is  calculated  as  a function  of  pump  speed  (rpm)  and  system  leakage  flow. 
Swash  plate  flexibility  and  compensator  valve  dynamics  are  not  included. 

A simpler  pump  representation  is  also  available,  which  depicts  the  pump 
as  a constant  flow  source  shunted  by  a parallel  impedance.  Use  of  this 
alternative  to  the  pump  subroutine  is  dictated  by  the  user  in  the  input  data, 
which  must  include  values  for  the  source  flow  and  shunt  impedance,  or  pressure, 
all  of  which  are  derived  empirically  or  from  the  detailed  pump  model. 

The  main  program  applies  the  complex  flow  and  pressure  from  the  pump 
subroutine  to  the  system,  using  the  element  matrices  to  calculate  the  input 
flow  and  pressure  at  each  system  element.  The  program  also  computes  and 
plots  acoustic  .ne'  y density  and/or  intensity  (power)  for  selected  system 
elements . 

Subroutines  are  included  for  pumps,  lines,  lumped  volumes,  valves, 
accumulators,  lumped  volume  and  acoustic  filter  type  resonators,  and  wide 
band,  helical  Quincke  tubes.  The  main  program  handles  branch  and  terminating 


elements . 


3.0  MAIN  PROGRAM 
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3.1  INTRODUCTION  AND  FLOW  DIAGRAM 


General  flow  diagrams  for  the  HSFR  main  program  are  shown  in  Figure  3-1 
and  3-2. 


The  initial  section  of  the  HSFR  main  program  (Figure  3-1)  provides 
specification  statements  for  variable  names,  types,  commonality,  and  direct 
data  inputs.  This  section  also  specifies  an  external  MCAUTO  dating  routine. 

The  main  program  then  provides  read  and  write  statements  for  all  the  required 
input  data,  calls  the  subroutine  FLUID  to  calculate  and  write  the  necessary 
fluid  parameters,  and  initializes  the  first  calculation  point  for  pump  speed. 

In  Figure  3-2,  the  main  program  computes  the  fundamental  harmonic  frequency 
for  the  first  pump  speed.  The  program  examines  each  element  of  the  system  in 
turn,  excluding  the  pump,  and  via  the  appropriate  subroutine,  calculates  a 
matrix  relating  input  and  output  oscillatory  flows  and  pressures  for  the 
fundamental  harmonic  frequency.  Information  from  these  matrices  is  then  used 
to  calculate  the  input  impedance  at  each  element  in  the  system,  starting  with 
the  terminating  element  in  the  circuit  and  computing  the  input  impedance  for 
each  element  back  to  the  pump.  Matrix  and  input  impedance  calculations  are 
then  repeated  for  each  harmonic  frequency  of  the  pump  speed  up  to  and  inclu- 
ding the  harmonic  specified  in  the  input  data. 

Impedance  calculated  at  the  pump  provides  the  linear  phase  and  gain 
relationship  between  the  harmonic  flows  from  the  pump  into  the  load  (system) 
and  the  corresponding  pressures  across  the  load.  This  load  impedance  is  then 
passed  to  the  pump  subroutine. 

The  pump  subroutine  contains  a detailed  description  of  the  operation  of 
the  pump,  and  models  the  nonlinear  relationship  between  pump  oscillatory  output 
(or  input)  flow  and  pressure  in  the  time  domain.  An  iterative  technique  is  used 
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in  the  subroutine  to  obtain  the  balance  between  output  (or  input)  flow  and 
pressure  for  the  specified  harmonic  frequency. 

Balanced  pump  output  (or  input)  flow  and  pressure  are  returned  to  the 
main  program  where  the  matrices  for  the  system  elements  are  again  used  to 
obtain  the  oscillatory  input  flow  and  pressure  at  each  element  in  the  system. 

The  main  program  then  computes  acoustic  energy  density  and/or  intensity 
for  selected  elements  only.  Values  of  flow,  pressure,  impedance,  energy 
density,  and/or  intensity  are  stored  for  the  selected  elements. 

The  entire  calculation  in  Figure  3-2  is  then  repeated  for  each  pump 
speed  over  the  specified  range. 

Finally,  the  main  program  plots  the  specified  parameters  at  the  specified 
elements  versus  pump  speed. 

The  main  program  is  discussed  and  listings  are  presented  by  sections  in 
subsequent  paragraphs.  Format  statements  for  the  main  program  appear  at  the 
end  of  Section  3. 

3.1.1  Math  Model  - See  sub-paragraphs  in  Section  3. 

3.1.2  Assumptions  - Not  applicable. 

3.1.3  Computation  Method  - The  HSFR  main  program,  and  all  the  subroutines 
except  PUMP  operate  in  the  frequency  domain.  Pressure,  flow,  and  impedance 
variables  are  in  complex  form  and  computations  are  performed  in  complex  form 
by  the  computer.  The  magnitude  of  the  complex  vectors  are  plotted  versus 
pump  speed.  Impedance  values  are  plotted  as  a log  function  (decibels)  in 
order  that  small  amplitudes  can  be  clearly  distinguished  on  the  print-plots. 

3.1.4  Approximations  - See  sub-paragraphs  in  Section  3. 

3.1.5  Limitations  - Arrays  are  dimensioned  to  handle  up  to  40 

circuit  element  data  records.  Storage  for  print-plots  is  dimensioned  to  allow 


To  Calculation  Control  (FIG.  3-2) 


FIGURE  3-1 

HSFR  MAIN  PROGRAM  SPECIFICATION 
AND  DATA  INPUT  FLOW  CHART 
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FROM  INPUT  DATA  (FIGURE  3-1) 


FIGURE  3-2 

HSFR  MAIN  PROGRAM  - CALCULATION 
CONTROL  FLOW  CHART 
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up  to  49  output  print  plots  in  a single  run,  i.e.,  a single  system  model. 
Arrays  may  be  redimensioned  to  save  storage  cost  if  dealing  with  a circuit 
containing  only  a few  elements.  However,  redimensioning  must  be  done  in  the 
main  and  all  applicable  subroutines. 

The  PARM(-,-)  array  for  storing  element  input  data  is  dimensioned  for 
eight  columns  and  forty  elements,  (8,40).  The  eighth  or  last  column  on 
the  first  record  (card)  for  an  element  is  reserved  for  internal  program 
addressing  of  extra  element  data  records  in  the  PARM  array.  Therefore,  the 
first  element  record  may  contain  up  to  seven  physical  data  inputs.  Second 
and  subsequent  records  on  any  one  element  may  contain  up  to  eight  data  inputs. 

System  input  impedance  (ZIP)  is  dimensioned  to  permit  analysis  up  through 
the  10th  harmonic. 

3.1.6  Variable  Names  - The  main  program  variable  names  are  listed  and  defined 
below  in  alphabetical  order.  Common  variable  names  used  in  both  the  main 
program  and  the  subroutines  are  listed  separately  in  paragraph  3. 1.6.1. 


SYMBOL 


CHAR(  ) 


DESCRIPTION  UNITS 

Variable  name  used  in  title  of  each  print-plot 
Acoustic  energy  intensity  at  element  input  WATTS 

Truncated  to  E for  use  in  print-plot  title 
Temporary  variable  for  summing  valve  flows  IN**3/SEC 

Integer  counter 


IFLUID 


Fluid  type  in  FLUID  call  statement 


IIPLT ( ) 


One  dimensional  array  used  for  storing  in  sequence 
the  junctions  for  which  flow,  pressure,  impedance, 
or  energy  are  to  be  plotted 


Temporary  variable  for  IIPLT 


ITYPE 


Type  of  element  under  examination,  extracted  from 
single  dimension  array  NTYPE 


V. 
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SYMBOL 


DESCRIPTION 


UNITS 


IWPT 

J 

K 

KHARM 

KT 

MM 

MN 

NEPLT 

NHARM 

NINLT 

NPLT 

NPLTPT 

NPPLT 

NQPLT 

NTPLT 

NTYPE(  ) 

NZPLT 

OMEGA ( ) 

PANG 

PHASE 

PC 

PISTNO 

PRESS 

PM 

PO 


Counter  used  in  incrementing  pump  speed 
Integer  counter 
Integer  counter 
Order  of  harmonic 

Used  in  test  for  improper  termination  of  a branch 
Identifies  existence  of  extra  card  data  for  writing 
Integer  counter 

Number  of  energy  intensity  plots 
Integer  form  of  WHARM 
Pump  inlet  identification 
Total  number  of  plots 

Number  of  points  per  plot  (=  number  of  pump  rpms) 

Number  of  pressure  plots 

Number  of  flow  plots 

Number  of  energy  density  plots 

Type  of  element 

Number  of  impedance  plots 

Real  variable  array  used  to  store  pump  rpm's 
subsequently  used  for  plotting 

Phase  angle  of  complex  pressure 

Phase  angle  between  complex  flow  and  pressure 

Truncated  to  P for  use  as  plot  title 

Number  on  pumping  pistons  - input  data 

Data  input  steady  state  pressure 

Not  used 

Pump  fundamental  complex  output  pressure  at  2500  rpm 
(Data  input  for  simpler  pump  representation) 


RAD 

RAD 

PSI 

PSI 
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SYMBOL 

DESCRIPTION 

UNITS 

QANG 

Phase  angle  of  complex  flow 

RAD 

QC 

Truncated  to  Q for  use  plot  title 

- 

QM(  ) 

Not  used 

- 

QO 

Pump  fundamental  output  flow  at  2500  rpm 
(Data  input  for  simpler  pump  representation) 

IN**3/SEC 

QOVB 

Data  input  valve  element  steady  state  flow 

IN**3/SEC 

STPLT ( ) 

Array  used  to  store  in  sequence  the  values  for 
subsequent  extraction  and  plotting 

- 

T 

Acoustic  energy  density 

WATTS /IN**3 

TC 

Truncated  to  T for  use  in  plot  title 

- 

TEMP 

Data  input  fluid  temperature 

°F 

TITLE1(  ) 

Data  input  title  for  flow  plots 

- 

TITLE 2 ( ) 

Data  input  title  for  pressure  plots 

- 

TITLE3(  ) 

Data  input  title  for  impedance  plcts 

- 

TITLE4 ( ) 

Data  input  title  for  energy  density  plots 

- 

TITLE5(  ) 

Data  input  title  for  intensity  plots 

- 

TITLEN 

Temporary  variable  for  plot  titles 

- 

TITLE 

Data  input  for  run  title 

- 

TK 

Kinetic  acoustic  energy  density 

WATTS /IN**3 

TP 

Potential  acoustic  energy  density 

WATTS/IN**3 

W 

Pump  speed  for  current  calculation 

RPM 

WEND 

Data  input  maximum  pump  speed  for  calculation 

RPM 

WINC 

Data  input  incremental  pump  speed 

RPM 

WSTART 

Data  input  first  pump  speed  for  calculation 

RPM 

WHARM 

Data  input  harmonic  of  interest 

- 

YPLT ( ) 

Data  extracted  from  STPLT  to  allow  plotting  of 
each  curve  in  turn 
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t 


SYMBOL 

DESCRIPTION 

UNITS 

ZAP  ( ) 

Complex  impedance  of  total  load  on  pump  inlet 
for  each  harmonic 

PSI/CIS 

ZC 

Truncated  to  'Z'  for  use  in  plot  title 

- 

ZIP(  ) 

Complex  impedance  of  load  on  pump  outlet  for  each 
harmonic 

PSI/CIS 

ZO 

Data  input  equivalent  shunt  complex  impedance  for 
simple  pump  representation  at  2500  rpm 

PSI/CIS 

ZM 

Not  used 

- 

ZP 

Total  parallel  complex  impedance  of  pump 
equivalent  shunt  impedance  (ZZ)  and  system  input 
impedance  (ZIP) 

PSI/CIS 

ZZ 

ZO  corrected  for  pump  speed,  viscosity,  and  density 

PSI/CIS 

3. 1.6.1 

Common  Variable  Names 

A 

Frequency  of  harmonic  flow 

RAD/SEC 

BEI 

No  longer  used 

BE  IP 

No  longer  used 

BER 

No  longer  used 

BERP 

No  longer  used 

BETA 

Frequency  dependent  friction  factor  used  in  LINE 
and  other  subroutines 

- 

BULK 

Fluid  bulk  modulus  used  for  calculation,  selected 
from  ABULK  tabulation 

PSI 

G(- ,-) 

Three  dimensional  array  containing  transfer  matrices 
produced  by  subroutines  to  describe  elements 

- 

I EL 

Number  of  element  under  examination 

- 

KTYPE 

Used  to  identify  element  sub-types 

- 

NEL 

Total  number  of  elements 

- 

P(  ) 

Pressure  at  inlet  to  system  element 

PSI 

PARM(-,-; 

1 Data  input  for  two  dimensional  array  of  element 

physical  data 

_ 
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SYMBOL 


DESCRIPTION 


UNITS 


PI 

The  circular  measure  constant 

- 

Q(  ) 

Peak  input  flow  into  element 

CIS 

RH0 

Fluid  mass  density  selected  from  ARHO 
tabulation 

LB-SEC** 2/ IN**4 

V0L 

Volume  of  element 

IN**3 

vise 

Fluid  viscosity  selected  from  AVISO 
tabulation 

IN**2/SEC 

XBE 

Variable  used  in  calculating  BETA 

- 

Z(  ) 

Complex  input  impedance  of  element  at 
frequency  of  current  calculation 

harmonic 

PSI/CIS 

■ 


3.1.7  Specification  Listing  - Main  Program 

PROGRAM  HSFR( INPUT, OUT PUT, DATA, TAP E5-DATA , T AP E6»0UT PUT ) 

C 

C * REVISED  DECEMBER  1 , 1 975  * 

C 

C * VARIABL  E TYPES,  DIMENSIONS,  COHMOflAL  ITY , AND  DATA* 

C 

COMPLEX  B ETA , G , P , Q , QO , PO 
COMPLEX  Z,ZO,ZZ,ZP,ZIP,ZAP 

INTEGER  TITLE1 ( 10) .TITLE2 ( 10) ,TITLE3( 10) , TIT LEA ( 10) .TITLE5 ( 10) , 

+T ITL  EN ( 10) ,TITLE( 10) 

COMMON  B ETA,G, P, Q, Z,  XB  E, B ER , B El , B ERP, B EIP , RHO , BULK, VOL , A , VI  SC , PAR 
1M,PI,  I EL , N EL , KT  Y P E ( 4 0 ) 

DIMENSION  PARM( 8, 40) ,G( 2, 2, 40) , Z (40) , P(40) ,0(40) 

+, E(40) ,T (40) 

DIMENSION  NTYPE(40) 

DIMENSION  IIPLT(49) ,STPLT( 5000) .OMEGA (125), YPLT( 125, 1) 

DIMENSION  QH (40) ,PM(40) ,ZM(40) 

DIMENSION  CHAR ( 1 ) 

DIMENSION  ZIP(  10) , ZAP ( 10) 

DATA  QC/1HQ/, PC/1HP/ ,ZC/ 1HZ/ ,TC/ 1HT/ , EC/ 1H  E/ 

DATA  TITLE4/8H  ACOUSTIC,  8 11  ENERGY  , 3HD  ENS  IT  Y ,0HIN  MILLI , 311U  ATT-S  EC 


+ , 8H/IN**3  V,  8HS  PUMP  R , 8H  PM-IIARMO , 8HN I C NO  , 8H  / 

DATA  TITLE5/8H ACOUSTIC,  8HINTENSIT,  8HY(POWER)  , 8H  IN  WATT,  8 11 S VS  PUM 

+ , 8HP  RPM  F0.8HR  HARMON, 8HIC  NUMB  E, 8HR  , 8H  / 

DATA  TITLE1/8HPEAK  FL0.811U  IN  CUB  , 8HIC  INCH  E,  8HS /S  EC  VE,  8HRSUS  PUM 

+ ,8HP  RPM  FO,8HR  HARMON,  8HIC  NUMB  E,  3HR  ,811  / 

DATA  TITLE2/8IIPEAK  PRE.SHSSURE  IN,8H  LBS/IN*, 8H*2  VERSU.8HS  PUMP  ll 

+.3HPM  FOR  H , 8HARM0N IC  , 8HNUMBER  , 8H  , 8H  / 

DATA  TITLE3/ 8HIMPEDANC , 8H  E IN  D EC , 8H1B  ELS  VE, 8HRSUS  PUM.3HP  RPM  FO 

+ , 8MR  HARMON,  8HIC  NUMB  E,  8 HR  , 8H  ,811  / 
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3.2  SECTION  1 - READ  & WRITE  INPUT  DATA 


I 


I 


if-  ' 


l * 


In  addition  to  the  reading  and  writing  of  input  data.  Section  1 calls  the 
subroutine  FLUID  for  computation  and  writing  of  the  fluid  properties.  This 
section  also  initializes  the  first  pump  speed  computation  point.  All  reads 
and  writes  for  the  program  are  included  in  this  section  except  the  write 
statements  which  control  the  print-plots. 

READS 


Format  // 

Description 

460 

Title  of  system  simulated 

470 

Number  of  elements,  fluid  type,  fluid  temperature, 

and  fluid 

pressure 

480 

First,  last,  increment  pump  speed,  and  harmonic  of 

interest 

490,  495 

Element  type,  sub-type,  and  physical  data  parameters 

560 

Plotting  requirements  for  flow,  pressure,  impedance 

, acoustic 

density,  and  acoustic  intensity 

WRITES 

500 

Date  and  title  of  system  simulated 

550,555 

Pump  speed  input  data,  and  harmonic  of  interest 

520 

Headings  for  writing  element  input  data 

540,545 

System  element  input  data 

496 

Error  message  if  number  of  elements  exceed  storage 

dimension 

620 

Error  message  if  circuit  in  improperly  terminated 

570,580, 

590,593, 

595 

Plotting  requirements 

3.2.1 

Math  Model  - Not  applicable. 

3.2.2 

Assumptions  - Not  applicable. 
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3.2.3  Computation  Method  - Not  applicable. 

3.2.4  Approximations  - None. 

3.2.5  Limitations  - Limitations  for  reading  input  data  are  covered  in  detail 
in  the  user's  manual,  Volume  I of  this  report. 

3.2.6  Variable  Names  - See  paragraph  3.1.6. 


3-12 


3.2.7  Read  and  Write  Listin; 


C 

C * S EC  T 1 0 N 1-  READ  AND  WRITE  INPUT  DATA* 

C 

100  R EAD (5, 460) (TITLE(I ) , 1=1 , 10) 

I F ( EOF ( 5 ) ) 4 5 0 , 10  1 

101  READ  ( 5, 4 70)  N EL  , I FLU  I D , T EM  P , PR  ES  S 

READ ( 5 , 4 80 ) US  TART , W END , W I NC , W HARM , P I STNO 

NHARM-WHARM+. 0 1 

WRITE(6,  500) (TITLE(I)  ,1=1,  10) 

I F ( N HARM . L E.  1)  GO  TO  1 12 

WRIT  E( 6,  550)  U ST ART , W END , W I NC , NHARM , PI STNO 
GO  TO  113 

112  WRITE(6,555)  W START ,W END ,W INC , PI STNO 
C 

C COMPUTE  AND  WRITE  FLUID  PROPERTIES 
C 

113  CALL  FLUID  (T  EMP , PRESS  , IFLUID  , VISC,  BULK,  R110) 

WRITE(6,  320) 

C 

C READ  AND  WRITE  CIRCUIT  ELEMENT  INPUT  PHYSICAL  DATA 
C 

K-N EL  + 1 

DO  103  J-l.NEL 

READ  (5,4  90)  NTYPE(J),KTYPE(J),  ( PARI1  ( I , J)  , 1=  1 , 7 ) 

IF (NTYPE(J ) . EQ. 6)  GO  TO  109 
MM-KTYPE(J)  / 1 0 
IF (MM. NE, 0)  GO  TO  102 
PARM ( 8 , J ) = 0 

109  WRITE(6, 540)  ( J ) , NT Y P E ( J ) , KT Y P E ( J ) , ( PARM ( I , J ) , I = 1 , 7 ) 

GO  TO  103 
10  2 PARM ( 8 , J ) = K 

WRIT E( 6,  5 40)  ( J ) , NTY P E(  J ) , KT YP E ( J ) , ( PARM ( I , J ) , 1=  1 , 7 ) 

DO  108  MH-l.MM 

READ  ( 5, 4 95  ) ( PARM  ( I , K ) , I = 1 , 8 ) 

WRIT E( 6, 545)  ( PARM ( I , K) , 1= 1 , 8 ) 

K-K+l 

IFOC.GT.40)  GO  TO  106 
108  CONTINUE 
103  CONTINUE 
CO  TO  111 
106  W R I T E ( 6 , 496) 

STOP  7700 
C 

C READ,  COMPUTE,  AND  WRITE  OUTPUT  PLOT  REQUIREMENTS 

C 

111  R EAD  ( 5 , 5 6 0)  NQPLT,  (IIPLT(I)  ,I=l,t!QPLT) 

READ (5, 560)  NPPLT, (I IPLT (I+NQPLT) , 1=1 ,NPPLT) 

READ ( 5,  560)  NZPLT,  ( I IPLT ( I +NQPLT+N  PPLT ) , I-l.NZPLT) 

READ ( 5, 560)NTPLT , ( I IPLT ( I+N Q PLT  + N P P LT+NZ PLT ) , 1= 1 ,NTPLT ) 
READ ( 5,  5 60)NEPLT,  ( 1 1 PLT ( I +NQ PLT+N PPLT+NZ PLT  + NT PLT ) , 1 = 1 , 


N EPLT  ) 


3.2.7  (Cont. ) 


P I = 3 . 1416 

NPLTPT= (W END-W  START ) /W INC  + 1 . 0 1 

NPLT=NQPLT+NPPLT+NZPLT+NTPLT+N  EPLT 

IWPT=1 

M-W START 

DO  105  IEL-l.NEL 

IF  (NTYPE(IEL)  .HE.  6)  GO  TO  105 

KT  = KTYPE(I  EL) 

KT=KT+I  EL 

IF(NTYPE(KT).LT. 10)  GO  TO  104 
105  CONTINUE 

IF (NTYP E(N EL ) .GT. 10)  GO  TO  115 
104  WRITE(6, 620) 

STOP 

115  CONTINUE 

IF(NQPLT.LT.  1.0)  GO  TO  370 

WRITE( 6, 5 70) NQPLT , (IIPLT(I ) , 1=1 ,NQPLT) 

370  IF (NPPLT. LT. 1 . 0)  GO  TO  380 

WRITE! 6, 5 80) NPPLT , ( I I P LT ( I +N QPLT ) ,1=1 , NPPLT ) 

380  IF(NZPLT. LT. 1. 0)  GO  TO  383 

WRITE! 6,  5 90) NZ  PLT , (IIPLT (I+NQPLT+NPPLT) ,1=1 ,NZPLT) 

383  IF1NTPLT.LT. 1.0)  GO  TO  385 

W R I T E ( 6 , 593)NTPLT, ! 1 1 PLT ( I+NQPLT+N PPLT+NZ PLT ) , 1=1 , NT PLT) 

385  IF(NEPLT.LT. 1.0)  GO  TO  390 

WRITE!  6,  5 95 )N  EPLT , ( I IPLT ( I+NQPLT+N PPLT+NZ PLT+NT PLT ) , 1= I ,U  EPLT ) 
390  CONTINUE 
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3.3  SECTIONS  2 and  3 - ELEMENT  TRANSFER  MATRIX  AND  IMPEDANCE  CALCULATIONS 

Section  2 first  calculates  the  fundamental  harmonic  frequency  of  the  pump 
speed.  Each  element  in  the  circuit  is  then  examined  sequentially  starting  with 
the  first  element,  the  pump.  The  transfer  matrix  for  the  pump  is  initialized 
for  the  first  time  through  the  DO  250  loop.  The  applicable  subroutine  for 
each  of  the  other  elements  if  then  called,  one  at  a time,  up  through  the 
'’terminating  element.  Each  subroutine  calculates  a 2 X 2 transfer  matrix  which 
relates  input  and  output  flow  and  pressure  at  the  fundamental  harmonic  of  the 
current  calculation  pump  speed.  The  transfer  matrix  is  initialized  for  dummy 
(NTYPE  = 7)  branch  (NTYPE  = 6)  and  pump  elements.  If  pump  inlet  analysis 
is  desired,  the  inlet  is  automatically  assigned  its  sequential  element 
number  (NINLT  = IE) . After  the  last  terminating  element  in  the  circuit  has 
been  examined,  control  passes  to  Section  3 which  calculates  the  input  impedance 
for  each  element  starting  with  the  last  element  in  the  circuit. 

Input  impedance  Z(I)  for  the  next  element  upstream  I = ( I— 1 ) is  then 
calculated  where  Z(I+1)  is  the  input  impedance  of  the  last  downstream  element. 
This  calculation  repeats  until  2(1)  is  calculated,  which  is  the  system  load 
impedance  at  the  pump  outlet  for  the  fundamental  harmonic  of  the  current 
caiculation  pump  speed.  Return  system  load  impedance  (ZAP)  is  assigned  to 
the  pump  inlet,  if  applicable. 

Section  2 and  3 are  then  repeated  for  each  harmonic  of  the  current 
pump  speed  up  to  and  including  the  specified  harmonic. 

Progression  of  impedance  calculation  is  such  that  the  calculated  input 
impedance  for  the  harmonic  of  interest  is  stored  for  each  element  in  the 
system.  Values  for  the  system  inlet  and  outlet  load  impedances  are  stored 
in  the  ZIP(-  ) and  ZAP  (-  ) arrays  for  each  harmonic,  starting  with  the 
fundamental,  up  to  and  including  the  harmonic  of  interest. 


3.3.1  Math  Model  -Math  models  for  transfer  matrix  calculations  are  covered 
in  Section  4 of  Volume  2,  under  the  subroutine  descriptions.  The  basic  math 
model  for  computation  of  element  input  impedances  in  Section  2 of  the  main  pro- 


gram is  as  follows: 


Element 

(I) 


Element 

Cl+1) 


Z(I+1) 


UPSTREAM 


Outlet 


Inlet 


Input  impedance  of  the  upstream  element  (I)  is  computed  from  the  transfer 
matrix  G(I)  for  element  (I),  calculated  by  the  subroutines,  and  the  impedance 
of  the  downstream  element  (1+1) . The  pressure  and  flow  across  element  (I)  are 


related  by  the  matrix  form 


_G (I)J  * |_p(i)j  Lp(i+ii 


”6(1,1, 1)  G(  1 

G(2,1,I)  G (2 


U L 

,2,1)1 . rQ(i)i  r 5(1+1) 

,2,1)]  l_P(I)J  |_P(I+1) 


In  equation  form 

G(1,1,I)Q(I)  + G(1,2,I)P(I)  = Q (1+1) 
G(2,1,I)Q(I)  + G(2, 2, 1)P  (I)  = P(l+1)  . 


By  definition 


P = QZ 


Dividing  equation  (2)  by  (1)  yields 


G (2 , 1 , 1)Q (I)  + G (2 , 2 , 1)P (I)  _ P(I+1) 
G(1,1,I)Q(I)  + G(l,2,I)P(I)  Q(I+1) 


From  equation  (3) 


p „ afT+lI  p = afT) 

qOhT)  z(I+i)’  Q(D 


(5) (6) 


i 
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Using  (5)  and  dividing  the  left  side  of  (4)  by  Q ( 1)  yields 


G(2,1,I)  + G(2,2,I)8(I) 
G (1 ,1 , 1)  + G (1,2, 1) 3(1) 


3(1+1)  . 


Solving  for  3(1)  gives 

_ G (1 , 1 , 1)3  (1+1)  - G (2 ,1 , 1) 

U;  G (2 , 2 , 1 ) - G (1 , 2 ,1)3  (1+1 ) 


(7) 


which  is  the  basic  equation  used  for  impedance  calculations. 


3. 3. 1.1  Circuit  Termination 


If  the  circuit  is  closed  at  the  terminating  element  (I),  then  Q(I+1)  = 0. 
Equation  (1)  then  becomes 


G (1 ,1 , 1)Q  (I)  + G (1 , 2 , 1)  (PI)  = 0. 

Rearranging 


P(I) 
Q (I) 

3(1) 


-G  (1 , 1 , 1) 
G (1 , 2 , 1) 

-G  (1 , 1 , 1 ) 
G (1 , 2 , 1) 


or 


(8) 


If  the  circuit  is  open  due  to  flow  at  a valve  element  (I),  then  P(I+1)  = 0. 
Equation  (2)  then  becomes 


G(2,1,I)Q(I)  + G(2,2 ,I)P (I)  = 0 


Rearranging 


P(I) 

Q(I) 


G (2 , 2 , I) 


or 


PJ2,1,I) 
G (2 , 2 , I) 


3(1)  = 

3. 3. 1.2  Branch  Elements 

Input  impedance  for  a branch  element  (NTYPE-6)  is  considered  to  be  the 


(9) 


equivalent  impedance  of  a two  branch  parallel  network. 


K 

K 


no.  of  elements  in 
first  branch  + 1 

KTYPE(I)+1 


Last  element  in  first  branch 

First  element  (1+1)  in  first 
branch 


Branch  element  (I) 


First  element  (I+K)  in 
second  branch 
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>f  I 


♦«. I 

M i 


2(1)  “ 2(1+1)  Z(I+K) 
am  - g(i+D«(i+K) 

^ ’ 2(1+1)  + 2 ( I+K) 


(10) 


3.3.2  Assumptions 

The  impedance  of  all  branch  terminating  elements,  except  valves,  is 
assumed  to  be  that  of  a closed  circuit  per  equation  (8),  i.e.  the  output  flow 
of  the  element  is  set  to  zero.  Terminating  valve  elements  (NTYPE=14)  are 
assumed  to  be  open  circuit  with  input  impedance  per  equation  (9) , where  the 
output  pressure  is  set  to  zero  to  simulate  an  open  ended  termination.  The 
open  circuit  representation  allows  simulation  of  servovalve  flow. 

As  can  be  seen  from  equation  (10)  above,  it  does  not  matter  which  branch 
circuit  comes  first  in  the  data  deck. 

3.3.3  Computation  Method  - Not  applicable. 

3.3.4  Approximations  - None. 

3.3.5  Limitations  - All  branch  circuits  must  be  terminated  and  have  the 
correct  number  of  elements  in  the  branch.  An  error  message  is  generated  from 
the  data  read  section  if  a branch  circuit  is  not  properly  described  and 
terminated.  Correctly  equating  pressures  and  summing  flows  at  branch 
junctions  is  a very  important  aspect  of  the  main  program. 

3.3.6  Variable  Names  - See  Paragraph  3.1.6. 
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c 

C *S  ECT  ION  2-  COMPUTE  TRANSFER  MATRIX  FOR  EACH  CIRCUIT  ELEMENT* 

C 

IF(NHARM. EQ. 0)  N HARM- I 
QOVB-0. 0 
110  CONTINUE 
KHARM-0 

IF (KTYPE( 1 ) . EQ. 2 1 )NINLT«121 
IF(KTYPE(1). EQ. 22)  NINLT-122 
120  CONTINUE 

KHARM-KHARM+1 
A-U*PISTNO*PI  *KH ARM / 3 0 . 

DO  250  I EL-  1 , N EL 
ITYPE-NTYPE(I EL) 

CO  TO  (130,140,150,160,170,180,175,190,200,250,130,140,150,160 
+170,180,175,190), ITYPE 
130  CALL  LINE 
CO  TO  250 
140  CALL  RESNTR 
GO  TO  250 
150  CALL  VOLUME 
GO  TO  250 

160  IF(W.NE.W  START)  GO  TO  165 
FLOW  = PARM (2,1  EL) 

QO VB-QO VB+FLOW 
165  CALL  VALVE 
GO  TO  250 
170  CALL  ACCUM 
GO  TO  250 

175  IF (KTYPE(I EL) . EQ. 1 ) NINLT-IEL 
180  G( 1, 1, IEL)-CMPLX( 1. , 0. ) 

G ( 1 , 2, I EL ) -CMPL X ( 0 . ,0. ) 

G(2, 1,IEL)-CMPLX(0. ,0. ) 

G ( 2, 2, I EL)=CMPLX( 1. ,0. ) 

GO  TO  250 
190  CONTINUE 

C 190  CALL  UUEQUT  (WSTART.W) 

GO  TO  250 
200  CONTINUE 

IF(KTYPF,(I  EL)  . EQ.  0)  GO  TO  2 20 
IF (KHARM. EQ. NHARM+1 ) GO  TO  240 
I F ( KH  ARM . N E.  1 ) GO  TO  250 
GO  TO  180 
220  CONTINUE 

G ( 1 , 1 , 1 ) -CMPLX ( 1 . , 0. ) 

G(l, 2,1)  -CMPLX ( 0. , 0. ) 

C(2,  1,  1)  -CMPLX ( 0 . ,0. ) 

G ( 2 , 2 , 1 ) -CMPLX( 1. ,0. ) 

A«U*PISTNO*PI*N  HARM/ 30 . 

250  CONTINUE 


n o 


3.3.7  (Cont. 


i ■ 


t 


r 


2 


c 

C * S EC  T 1 0 N 3-  CALCULATE  INPUT  IMPEDANCE  FOR  EACH  CIRCUIT  ELEMENT 
FROM  TERMINATION  BACK  TO  PUMP* 


I-N  EL 

260  IF(NTYPE(I).GE. 11)  GO  TO  270 
IF(NTYPE(I). EQ. 6)  GO  TO  290 

Z(I)-(G(1, 1,1 )*Z(I+1)-G(2, 1,1) )/(G( 2,2, I)-C( 1,2,1 )*Z(I+1)) 
GO  TO  300 

270  IF(NTYPE(I).  EQ.  14)  GO  TO  280 
Z(I)— G(1,1,I)/G(1,2,I) 

GO  TO  300 

280  Z(I)--G(2, 1,I)/G(2,2,I) 

GO  TO  300 
290  K-KTYPE(I)+1 

G(1,2,I)--1/Z(I+K) 

Z(I)“Z(I  + 1)*Z(I  +1C )/(Z(I  + l)+Z(I  +K ) ) 

300  1=1-1 

IF ( N INLT. EQ. 1 2 1 . OR. NINLT . EQ. 1 2 2 ) Z A P ( KHARM ) -CMPLX ( 0 . 0 , 0 . 0 ) 
IF ( 1+1 . EQ.NINLT)  ZAP (KHARM) =Z (1+1 ) 

IFd  + l.NE.  1 ) GO  TO  260 
ZIP (KHARM )=Z(  1 ) 

IF  (KTYPEd  + 1 ) . N E.  0)  GO  TO  120 


h 


* 


l 
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3.4  SECTION  4 - ELEMENT  INPUT  PRESSURE  AND  FLOW  CALCULATION 


Section  4 of  the  main  program  computes  the  input  flow  and  pressure  for 
each  element  in  the  curcuit  beginning  with  the  first  element  and  progressing 
to  the  last  element.  Flow  and  pressure  for  the  first  element,  the  pump, 
are  calculated  in  the  returned  from  the  PUMP  subroutine  which  is  called 
by  Section  4.  Pump  outlet  and  inlet  flow  are  balanced  with  the  system  based 
on  the  previously  calculated  pressure  or  return  system  load  impedance  at  the 
pump.  The  simpler  empirical  pump  model  is  used  to  calculate  initial  values 
of  pressure  (P(l))  and  flow  (Q ( 1) ) . The  transfer  matrix  for  the  pump, 
assigned  in  Section  2,  is  such  that  the  input  flow  and  pressure  for  first 
system  element  is  the  same  as  the  pump  outlet  or  inlet  value.  Input  flow  and 
pressure  for  the  next  element  is  then  computed  using  the  transfer  matrix 
previously  calculated  for  the  first  system  element. 

A test  is  made  to  determine  if  the  next  element  is  a branch  or  termina- 
tion. For  a branch  element,  the  calculation  gives  the  flow  out  of  both  legs 
of  the  branch  and  equalizes  the  pressures.  A termination  requires  no  calcula- 
tion since  values  of  flow  and  pressure  are  not  calculated  for  the  downstream 
or  terminated  end. 

Calculation  progresses  until  the  input  flow  and  pressure  for  the  last 
element  is  calculated.  Values  of  pressure,  flow,  and  impedance  specified  by 
the  input  plot  data  are  then  stored  in  Section  5. 

3.4.1  Math  Model  - The  general  models  for  computing  input  flow  and  pressure 
at  each  element  are  the  transfer  equations  (1)  and  (2) . For  downstream 
(upstream  for  return  system)  progression,  equations  (1)  and  (2)  become 
Q ( I ) » G(1 , 1 , I— 1 ) Q ( I— 1 ) + G(1,2,I-1)P(I-1)  (11) 

P(I)  = G(2 , 1 , I-l)Q(I-l)  + G(2 , 2, I-l)P(I-l)  (12) 
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Special  considerations  are  required  to  handle  branch  calculations. 


! 

s 

J 


Referring  to  the  above  sketch,  inputs  to  the  first  element  of  each  branch  leg 
are  calculated  by  assuming  that  the  pressures  are  equal  in  all  three  legs  of  the 
branch. 


P(I)  = P(I-l)  = P (I+K) 
Flows  are  then  calculated  as 

(13) 

Q (I)  = P(I)/Z(I) 

(14) 

Q (I+K)  = P (I) /Z  (I+K) 

(15) 

General  equations  (11)  and  (12)  are  then  used  to  progress  down  the 
first  branch  until  the  inputs  for  the  terminating  element  in  that  branch  are 
computed.  Since  the  inputs  for  the  first  element  (I+K)  of  the  second  branch 
have  already  been  calculated  using  (-13)  and  (15),  the  progression  skips  the 
general  calculation  for  element  (I+K) . 

3.4.2  Assumptions  - The  assumption  of  equal  pressures  in  all  three  legs  of  a 
branch  element  is  based  on  the  element  being  a "point"  with  no  length.  Error 
due  to  losses  in  the  center  of  a branch  fitting  are  minimized  if  each  of  the 
three  leg  elements  are  assumed  to  end  or  begin  in  the  geometric  center  of  the 
f itting . 

3.4.3  Computation  Method  - 2x2  transfer  matrix. 

3.4.4  Approximations  - None. 

3.4.5  Limitations  - None. 

3.4.6  Variable  Names  - See  para.  3.1.6. 
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3.4.7  Flow  and  Pressure  Calculations  Listing 


‘SECTION  4-  CALCULATE  I N FUT  PRESSURE  AND  FLOW  FOR 
EACH  CIRCUIT  ELEMENT* 


Q0-CMPLX(  PARM  ( 1,1),  PARtl  ( 2 , 1 ) ) 

Z0«CMPLX(PAR11(  3 , 1 ) , PA  RM  ( 4 , 1 ) ) 

Q ( l ) - q 0 *YJ  / 2 5 0 0 . 

ZZ»Z0*2  500. /M 

ZP-  ZZ*Z ( 1 ) / (ZZ+Z ( 1 ) ) 

p ( l ) * q ( l ) * zp 
Q(  1 )=  P(  1)/Z(  1) 

GO  TO  310 
240  CONTINUE 

CALL  PUMP(WSTART,W,ZIP,NHARM,qOVB,PRESS,WlNC, PI STNO , N I NLT , ZAP ) 
310  CONTINUE 

DO  335  1-2, NEL 

IF ( I . Eq.NINLT)  GO  TO  335 

IF  (NTYPF.(  1-1  ) . Eq.6)  GO  TO  320 

IF  (NTYPE(I-1  ) .GE.  1 1 ) GO  TO  335 

Q(I)-G(1, 1,1-1 )*Q(I-1)+G( 1,2,1 -1)*P( I -1) 

P(I)=C(2, 1,1— 1)*Q(I— 1) +G (2,2,I-1)*P(I-1) 

GO  TO  335 
320  K-KTYPE(I-l) 
p(i)-pd-i) 

P(I+K)-P(I) 

Q(I)-P(I)/Z(I) 

Q ( I +K  )-P(I)/Z(I  +K. ) 

335  CONTINUE 


3.5  SECTION  5 - CALCULATE  ENERGY  AND  STORE  PLOT  DATA 


Section  5 of  the  main  program  performs  the  function  of  storing  in  the 
STPLT(I)  array  only  the  data  which  is  to  be  plotted.  The  total  storage 
used  is  equal  to  the  number  of  plots  (NPLT)  times  the  number  of  plotted 
points  (NPLTPT) . The  storage  dimension  is  5000. 

Flow  and  pressure  are  stored  as  absolute  values  (magnitude)  of  the 
complex  vector.  Impedance  is  stored  as  20  LOGio  of  the  absolute  value, 
i.e.  decibels.  The  stored  values  are  used  as  the  vertical  axis  values  for 
the  output  plots.  The  phase  angle  information  is  dropped,  but  can  easily 
be  plotted  if  desired. 

The  total  acoustic  energy  density,  T(IPLT),  is  calculated  from  the 
absolute  values  of  flow  and  pressure  for  those  elements  specified  for 
plotting.  Total  acoustic  energy  density  is  obtained  by  summing  the  calculated 
kinetic  (flow)  energy,  TK,  and  potential  (pressure)  energy,  TP.  The  total 
energy  density  is  then  stored  in  the  STPLT(I)  array. 

The  acoustic  intensity  or  power,  E(IPLT),  is  also  calculated  from  the 
complex  flow  and  pressure  data  for  those  elements  specified  for  plotting. 

The  acoustic  power  is  the  product  of  the  pressure  and  flow  vector  magnitudes, 
and  the  cosine  of  the  phase  angle  between  the  pressure  and  flow  vectors.  The 
energy  intensity  is  then  stored  in  the  STPLT(I)  array. 

For  each  speed  calculation  point  the  value  of  pump  speed  (rpm)  is  stored 


3.5.1  Math  Model  - The  acoustic  energy  density  is  a measure  of  the  total 
acoustic  energy  content  at  the  input  to  a circuit  model  element.  It  is  com- 
posed of  kinetic  energy  (flow)  and  potential  energy  (pressure).  Consider  the 
following  small  fluid  volume  element  moving  through  a hydraulic  line. 


& 


dx 

Acoustic  energy  density  in  the  fluid  element  of  length  dx  is  given  in 
Paragraph  2.7  of  Reference  (1)  as: 


Kinetic  + Potential 


RHO 


p2 


(16) 


2 2 RHO  c2 

where:  RHO  = fluid  mass  density  LB-SEC^/IN1^ 

C = velocity  of  sound  in  fluid  IN/SEC 
V = velocity  of  fluid  element  IN/SEC 

P = peak  pressure  in  fluid  element  LBS/IN^. 

However,  velocity  is  related  to  peak  flow  (Q)  and  cross  sectional  area  (A)  by 
V = Q/A.  (17) 

Substituting  (17)  in  (16)  yields 

t = ^(Q/A)2  + 


t = 


RHO 


(18) 


2 A 2 2 RHOC7 

The  average  or  RMS  energy  density  (T)  is  derived  by  dividing  the  peak  flow 


and  pressure  by 


VT. 


= mo/a\2  + — l 
2A?V2  / 


2 RHO  C2 
2 


(v*)‘ 


m RHO  Q*-  , P^  IN-LBS 

T = 4A2  + 4 RHO  C2  IN 3 


(19) 


i 
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To  obtain  T in  MILLIWATTS/IN3,  the  results  of  equation  (19)  are  multiplied 
by  113. 

Acoustic  intensity  or  power  is  synonomous  with  the  active  or  in-phase 
power  in  an  AC  electrical  circuit.  It  is  obtained  by  multipling  the 
magnitudes  (absolute  value)  of  the  pressure  and  flow  vectors  by  the  cosine 


Real 


(20) 


E = .113  PQp  = .113  PQ  cos  0 
where  0 = phase  angle 

= PANG  - QANG 
and  PANG  - TAN’1 

s™0  - ™ri  tew) 

3.5.2  Assumptions  - None 

3.5.3  Computation  Method  - Not  applicable. 

3.5.4  Approximations  - None 

3.5.5  Limitations  - Since  the  energy  density  equation  (19)  requires 
element  area,  the  energy  density  calculation  is  limited  to  line  elements 
only. 

3.5.6  Variable  Names  - See  para.  3.1.6. 
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3.5.7  Calculate  Energy  and  Store  Plot  Data  - Listin; 


C 

C *S  ECTIOtl  5-  CALCULATE  T AND/OR  E,  STORE  THE  MAGNITUDE  OF  EACH 
C Q,P,Z,T,  AND/OR  E SELECTED  FOR  PLOTTING* 

C 

DO  360  J-l.NPLT 

I=( J-l )*NPLTPT  + IW PT 

I PLT=*  I 1 PLT  ( J ) 

IF(J.GT.NQPLT)GO  TO  340 
IF (I PLT. EQ. 39)  GO  TO  341 
ST PLT (I )«CABS (Q (I PLT) ) 

GO  TO  360 

341  STPLT (I ) * PH AS  EM 
GO  TO  360 

340  IF ( J. GT. NQPLT+NPPLT ) GO  TO  345 
STPLT (I ) = CABS (P(IPLT)  ) 

GO  TO  360 

345  IF (J. GT. NQPLT+NPPLT+NZPLT  ) GO  TO  350 
STPLT (I)=20.*ALOG10(CABS(Z(I PLT))) 

GO  TO  360 

350  IF ( J.  GT.  NQPLT+NPPLT+NZPLT+NTPLT  ) GO  TO  355 

TK=RHO* (CABS (Q (I PLT) ) ) ** 2 / ( P ARM ( 6 , I PLT ) ) * * 2 / 4 . 
TP=(CABS(P(IPLT) ) ) * * 2 / R H 0 / ( P A RM ( 5,IPLT))**2/4. 

T (I PLT )= (TK+TP) * 1 13. 

STPLT (I )=T (IPLT) 

GO  TO  360 

355  PANG*ATAN  2 ( AIMAG ( P ( I PLT ) ) , R EAL ( P ( I PLT ) ) ) 
QANG=ATAN2(AIMAG(Q(IPLT) ) , R EAL ( Q ( I PLT ) ) ) 

PHASE” QANG-PANG 

IF  (PllAS  E.  GT.  18  0.  ) PH  AS  E-  PH  AS  E- 3 6 0. 

IF (PHASE.LT. -130. ) PHASE- PHAS E+3 60. 

E( IPLT )=CABS (P( IPLT) ) *CABS (Q ( I PLT ) ) *COS (PHAS E) *. 1 1 3 
STPLT (I ) = E(IPLT) 

360  CONTINUE 

OM  EGA ( IW PT  )=U 
IWPT-IWPT  + 1 

WRITE(6,  630)  Q ( 5 ) , QANGM, P ( 5) , PANGM, PHAS  EM , Q ( 6 ) , P ( 6 ) ,W 
6 30  FORMAT ( 1 OX , 7 ( F 1 0. 4 ) , / , 1 OX , 5 ( F 1 0 . 4 ) ) 

U-W+W  INC 

IF  (W  ,LE.W  END)CO  TO  110 
C 


■ 


3.6  SECTION  6 - PLOTTING  STORED  INFORMATION 

Information  previously  stored  in  STPLT(I+K)  is  transferred  one  block 
at  a time  into  YPLT(K,1)  and  then  plotted.  YPLT(K,1)  is  used  in  the  call  state- 
ment to  GRAPH2  as  the  'Y*  arrav,  as  is  the  'X'  array  OMEGA  which  contains  the 
values  of  speed  used  in  the  calculations.  The  call  statement  to  GRAPH2  also  _ 
contains  the  number  of  plot  points  NPLTPT  and  the  plot  character  CHAR. 

After  control  is  returned  from  GRAPH2,  the  applicable  plot  title  is  read 
into  the  array  TITLEN.  The  main  program  then  writes  the  plot  title  and  main 
run  title. 

The  above  procedure  is  repeated  for  each  plot  in  each  plot  category  as 
specified  in  the  input  data. 

The  entire  program  is  restarted  if  a second  data  deck  has  been  loaded, 
otherwise  the  end  of  file  stop  1001  is  executed. 

The  use  of  the  special  print  plotting  routine  GRAPH2  is  cheaper  and  pro- 
vides an  easier  to  read  plot  format  than  the  print  plot  routine  PLOTR  used  on 
the  CDC  6600  system. 

3.6.1  Math  Model  - Not  applicable. 

3.6.2  Assumptions  - None 

3.6.3  Computation  Method  - No  applicable 

3.6.4  Approximations  - None 

3.6.5  Limitations  - None 

3.6.6  Variable  Names  - See  paragraph  3.1.6 
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3.6.7  Plotting  of  Stored  Information  - Listing 


C *S  ECTION  6-  TAKE  THE  MAGNITUDE  OF  PR  ESSUR  E,  FLOW  , IMPEDANCE, 

C ENERGY  DENSITY,  AND/OR  ENERGY  INTENSITY  FOR 

C SELECTED  ELEMENTS  FROM  STORAGE  AND  PLOT* 

C 

DO  4 AO  J=1,NPLT 
I=(J-1)*NPLTPT 
DO  400  K= 1 , N PLT  PT 
400  YPLT (K, 1 )=STPLT (I+K) 

IF( J.GT.NQPLT)  GO  TO  410 
CHAR ( 1 ) = QC 

CALL  GRAPH  2 (OMEGA , YPLT, NPLTPT, CHAR) 

C 360  CALL  PPLOT  ( OM EGA , YPLT , N PLT PT , 1 2 5 , 1 , 4 IH / IM P EDANC E IN  DECIBELS  VERS 

C 3 6 0 IUS  PUMP  RPM  //  ) 

DO  405  1=1,10 
405  TITLEN(I)=TITLE1(I) 

GO  TO  430  , 

410  IF ( J. CT. NQPLT  +NPPLT)  GO  TO  420 
C HAR ( 1 ) = PC 

CALL  GRAPH  2 (OMEGA, YPLT, NPLTPT, CHAR) 

C 3 6 0 CALL  PPLOT  (OM  EGA  , YPLT  , H PLTPT  , 1 2 5 , 1 , 3 911/ PR  ES  SUR  E IN  PSI  VERSUS 
C 3 60  1 PUMP  RPM//  ) 

DO  415  1=1,  10 
415  TITLEN(I)=TITLE2(I ) 

GO  TO  430 

420  I F ( J.GT.NQPLT+NPPLT+NZPLT)  GO  TO  426 
CHAR ( 1 ) = ZC 

CALL  GRAPH  2 (OMEGA, YPLT, NPLTPT, CHAR) 

C 3 60  CALL  PPLOT  (OM EGA , YPLT , N PLTPT , 1 2 5 , 1 , 3 5H / FLOW  IN  CIS  RMS  VERSUS  FU 
C 3 6 0 IMP  RPM//  ) 

DO  425  1=1,10 

425  TITLEN(I )=TITLE3(I ) 

GO  TO  430 

426  IF(J.GT. NQPLT +NPPLT+NZPLT+NTPLT)  GO  TO  428 
CHAR ( 1 )=TC 

CALL  GRAPH  2 (OM EGA , YPLT, NPLTPT, CHAR) 

DO  427  1=1,10 

427  TITLEN (I )=TITLE4(I ) 

CO  TO  430 

428  C H AR ( 1 ) = EC 

CALL  GRAPH  2 (OMEGA, YPLT, NPLTPT, CHAR) 

DO  429  1=1,10 

429  TITLEN (I )=TITLE5 (I ) 

430  CONTINUE 

WRITE(6, 6 10) CHAR ( 1) , I I PLT ( J) , T ITL EN , NHARM 
WRITE(6,600) (TITLE(I) ,1=1, 10) 

440  CONTINUE 
GO  TO  100 
450  STOP  1001 
460  FORMAT ( 1 OA 3) 

470  FORMAT (21 5, 2F  10. 0) 


3.7  FORMAT  STATEMENTS  - MAIN  PROGRAM 


Main  program  format  statements  contain  all  read  formats  and  all  write 
formats  except  for  the  writing  of  fluid  properties  in  FLUID,  and  plot 
writing  in  GRAPH2. 


480  FORMAT  (8F10.0) 

490  FORMAT ( 21 5, 7F 10. 0) 

495  FORMAT (8F 10.0) 

496  FORMAT ( 1 OX , 7 OH  INPUT  DATA  EXCEEDS  ARRAY  DIMENSIONS  - PROGRAM  TERMI 

IN  AT  ED  ) 

500  FORMAT  ( 1H1, 44X, 43 H HYDRAULIC  SYSTEM  FREQUENCY  RESPONSE  PROGRAM, 

+ //, 30X, 10A8) 

520  FORMAT!//, 811  EL  EM  ENT  , 1 X,  4 3 ( 1H  * ) , 2 5HS  YST  EM  ELEMENT  INPUT  DATA, 

1 48(1H*),/,7H  NUMBER,//, 10X.6HN  K , 6 X , 4 8 ( 1 H . ) , 

2 13HPHYSICAL  DATA , 4 8 ( 1H . ) , / , 8X, 1 OHT YP E TYPE,//) 

540  FORMAT ( 1H  , I 3 , 5X , I 3 , 2 X , I 3 , 7 F 1 4 . 3 , / ) 

545  FORMAT ( 1H  , 1 6X , 8F  1 4. 5 , / ) 

5 50  FORMAT  (//,  20X,  27HRESPONS  E IS  CALCULATED  FROM  ,F9.2,4H  TO  ,F9.'2, 

1 24H  R.P.M.  IN  INCREMENTS  OF  ,F9.2,7H  R.P.M.  ,//, 42X, 

2 41HRESPONS  E IS  PLOTTED  FOR  HARMONIC  NUMBER  ,12, 

3/ / , 5 OX, 2 3HNUMB  ER  OF  PUMPING  ELEMENTS-  ,F5.0) 

5 55  FORMAT!//,  20X,  27HRESPONSE  IS  CALCULATED  FROM  ,F9.  2,411  TO  ,F9.2, 

1 24H  R.P.M.  IN  INCREMENTS  OF  ,F9. 2,711  R.P.M.  ,//,  40X, 

2 55HRESPONSE  IS  PLOTTED  FOR  THE  -FIRST-  HARMONIC  FREQUENCY 
3//, 50X, 2 8H NUMBER  OF  PUMPING  ELEMENTS-  ,F5.0) 

560  FORMAT ( 1615) 

570  FORMAT! 10X, 13, 37H  Q PLOTS  FOR  INPUT  TO  ELEMENT  NUMB ERS , 201 4 , 

+/, 50X, 2014) 

580  FORMAT  ( I OX,  I 3,  3 7(1  P PLOTS  FOR  INPUT  TO  ELEMENT  NUMB  ERS  , 201  4 , 

+/, 50X, 2014) 

590  FORMAT! 10X, 13, 37H  2 PLOTS  FOR  INPUT  TO  ELEMENT  NUMB ERS , 201 4 , 
+/.50X, 2014) 

5 93  FORMAT ( 10X, I 3, 3 7H  T PLOTS  FOR  INPUT  TO  ELEMENT  NUMB ERS , 201 4 , 

+ /, 5 OX , 2014) 

595  FORMAT! 10X, 13, 37H  E PLOTS  FOR  INPUT  TO  ELEMENT  NUMB ERS , 201 4 , 

+/, 50X, 2014) 

600  FORMAT!/, 45X, 10A8) 

610  FORMAT (/, 38X, Al, 12, 2X, 10A8.I2) 

620  FORMAT!  36H  THE  PROGRAM  HAS  BEEN  T ERMINAT ED . , / / , 7 2H EITH ER  A BR 

AANCH  OR  THE  END  OF  THE  SYSTEM  HAS  BEEN  I PROPERLY  T ERMI  NAT  ED.  , / / , 2 

B8HSUGGEST  YOU  CHECK  YOUR  DATA.) 

END 


4.0  PUMP  SUBROUTINE 
4.1  INTRODUCTION  AND  FLOW  DIAGRAM 

Subroutine  PUMP  is  a general,  detailed  model  of  a rotating,  axial,  nine- 
piston,  pressure-compensated  hydraulic  pump.  The  model  computes  the  ability 
of  the  pump  to  deliver  flow  against  an  output  pressure  by  modeling  the  non- 
linear relationship  between  pump  output  flow  and  pressure  in  the  time  domain. 
The  main  program  calculates  the  harmonic  load  impedance  of  the  rest  of  the 
circuit,  and  this  provides  the  linear  phase  and  gain  relationship  between  the 
harmonic  flows  into  the  load  and  the  corresponding  pressures  across  the  load, 
in  the  frequency  domain.  The  balance  is  obtained  in  the  time  domain,  although 
a check  is  performed  in  the  frequency  domain.  The  model  can  also  calculate 
inlet  flow  based  on  the  return  system  load  impedance  which  is  calculated  by 
the  main  program. 

PUMP  considers  valving  areas,  pre-compression,  de-compression,  steady 
state  swash  angle  or  pressure,  fluid  bulk  modulus,  pump  internal  leakage, 
circuit  termination  flow,  and  piston  motion.  Steady  state  swash  angle  is 
calculated  and  balanced  as  a function  of  pump  internal  leakage,  circuit  over- 
board leakage,  and  pump  speed.  If  the  swash  angle  is  maximum,  the  steady 
state  pressure  is  calculated.  Swashplate  flexibility  and  swashplate-compen- 
sator  dynamics  are  not  included  . 

Piston  pressure  at  the  beginning  of  pre-compression  is  assumed  constant 
and  equal  to  the  inputed  steady  state  inlet  pressure  if  inlet  side  analysis 
is  not  selected.  Otherwise,  piston  pressure  is  calculated  continuously  for 
the  full  pump  revolution. 

Figure  4-1  is  a general  flow  chart  of  the  PUMP  subroutine.  The  specifi- 
cation section  includes  initialization  of  variables  from  input  data,  and 
calculates  several  constants.  Specification  statements  are  followed  by 
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initialization  of  pump  variables  from  the  main  program  input  data,  and  cal- 
culation of  valve  port  areas  for  a full  360°  revolution.  These  operations 
are  performed  only  once,  when  PUMP  is  called  on  the  first  pump  speed.  Steady 
state  swash  angle  or  outlet  pressure  are  then  calculated,  followed  by  the  pre- 
compression pressures.  Pump  outlet  flow  is  calculated  and  then  analyzed  by 
Fourier  analysis.  The  steady  state  component  of  the  Fourier  analysis  is  then 
compared  to  the  total  steady  state  circuit  flow.  If  these  differ  excessively, 
the  swash  angle  or  outlet  pressure  are  corrected  and  the  pump  outlet  flow  is 
recalculated.  When  the  swash  angle  or  outlet  pressure  produce  a steady  state 
flow  essentially  equal  to  the  pump  and  circuit  termination  leakage  flows, 
the  Fourier  analysis  is  completed  to  calculate  harmonic  flows  up  through  the 
harmonic  of  interest.  Harmonic  pressure  and  flow  are  then  balanced  dynamically 
by  reconstructing  the  time  dependent  output  pressure  and  recomputing  flow  from 
section  4.  If  inlet  analysis  is  not  selected,  pump  outlet  flow  and  pressure 
for  the  harmonic  of  interest  are  returned  to  the  main  program. 

If  inlet  analysis  is  selected,  piston  decompression  and  inlet  flow  is 
calculated.  If  return  system  analysis  is  selected,  Fourier  analysis  of  inlet 
flow  is  performed,  followed  by  dynamic  balancing  of  inlet  flow  with  the  return 
system  load.  Otherwise,  inlet  flow  is  based  on  the  constant  steady  state 
inlet  pressure  and  the  program  goes  directly  to  the  hanger  torque  calculations. 
Inlet  and  outlet  flow  and  pressure  for  the  harmonic  of  interest  are  then  re- 
turned to  the  main  program. 

The  PUMP  subroutine  is  divided  into  thirteen  sections.  Each  section  is 
discussed  and  a listing  of  that  section  is  presented  individually  in  subse- 
quent paragraphs. 


4.1.1  Math  Model  - See  sub-paragraphs  in  section  4. 

4.1.2  Assumptions  - See  sub-paragraphs  in  section  4. 

4.1.3  Computation  Method  - See  sub-paragraphs  of  section  4. 

4.1.4  Approximations  - See  sub-paragraphs  of  section  4. 

4.1.5  Limitations  - See  sub-paragraphs  of  section  4. 
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CALL  ARGUMENTS 

• PUMP  START  SPEED 

• PUMP  SPEED  FOR  CURRENT  CALCULATION 

• OUTLET  LOAD  IMPEDANCE  FOR  EACH  HARMONIC 

• HARMONIC  OF  INTEREST 

• STEADY  STATE  FLOW  RATE 

• STEADY  STATE  OUTPUT  PRESSURE 

• PUMP  SPEED  INCREMENT 

• NO.  OF  PUMPING  PISTONS 

• INLET  CODE  NO. 

• INLET  LOAD  IMPEDANCE  FOR  EACH  HARMONIC 


SPECIFICATION  STATEMENTS 


W = WSTART 


INITIALIZE  PUMP  VARIABLES  FROM  INPUT 
DATA  ARRAY  PARM 


SECTION  1 • CALCULATE  VALVE  PORT  AREAS  360° 


SECTION  2 - CALCULATE  STEADY  STATE  SWASH 
ANGLE  OR  OUTPUT  PRESSURE 


I 


; 


i 


„ i 


SECTION  6 - CALUCLATE  HARMONIC  PRESSURES 
UP  THROUGH  HARMONIC  OF  INTEREST 

— 

| |KK=1,2 

I 

SECTION  7 - RECONSTRUCT  TIME  DEPENDENT 

HARMONIC  OUTLET  PRESSURE 

(SEE 

NEXT 

PAGE) 


INLET  ANALYSIS  REQUIRED 

(NINLT  = 121) 


RETURN-OUTLET  FLOW  AND  PRESSURE 
FOR  HARMONIC  OF  INTEREST 


T 


TO  MAIN  PROGRAM 


GP70  1083  3 


FIGURE  4-1  (Continued) 

HSFR  COMPUTER  PROGRAM  - PUMP 
SUBROUTINE  FLOWCHART 
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(INLET  ANALYSIS  IS  REQUIRED) 

(NINLT  = 122,123) 


1 


SECTION  8 - CALCULATE  DECOMPRESSION 
PRESSURES 


I 


SECTION  9 - CALCULATE  PUMP  INLET  FLOW 

~ I 


RETURN  SYSTEM  ANALYSIS  REQUIRED 
l + (NINLT  = 123) 


SECTION  10  - FOURIER  ANALYSIS  OF  INLET  FLOW 

I 


(NINLT  = 122)  - 


SECTION  11  - INLET  PRESSURE/FLOW 
DYNAMIC  BALANCE 

n 

| KK  = 1 OR  2 

SECTION  12  - RECONSTRUCT  TIME  DEPENDENT 
HARMONIC  INLET  PRESSURE 

SECTION  13  - TORQUE  CALCULATION 

KK  = 3 


RETURN  - INLET  AND  OUTLET  FLOW  AND 
PRESSURE  FOR  HARMONIC 
OF  INTEREST 


GP76  1083  6 


TO  MAIN  PROGRAM 


FIGURE  4-1  (Continued) 

HSFR COMPUTER  PROGRAM  PUMP 
SUBROUTINE  FLOWCHART 
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4.1.6  Variable  Names  - Variable  names  unique  to  the  PUMP  subroutine  are 
listed  below.  Common  variables  are  discussed  in  the  main  program  paragraph 
3. 1.6.1. 

SYMBOL  DESCRIPTION  UNITS 

ABETA  Angle  obtained  during  calculation  of  valve  area  RAD 

ACTLEV  Swashplate  actuator  lever  arm  IN 

ACTLEVO  Swashplate  actuator  lever  arm  at  zero  angle  IN 

AINC  Incremental  shaft  rotation  angle  DEGREES 

ALPHA  Angle  obtained  during  calculation  of  valve  area  RAD 

ANG  Angular  value  of  valve  opening  RAD 

ANGCR  Input  data  swashplate  fixed  cross  angle  DEGREES 

ARACT  Area  of  swashplate  actuator  IN**2 

ASWASH  Swashplate  variable  angle  RAD 

ASWAST  Swashplate  variable  angle  for  writing  in  output  DEGREES 

ATOFF  Angle  of  swashplate  offset  DEGREES 

AVAREA  Temporary  variable  in  calculation  of  valve  area 
AT  Angular  position  of  pistons  RAD 

ATPR  Temporary  variable 

ATSU  Temporary  variable 

BULKP  Bulk  modulus  during  pre-compression  PSI 

C Temporary  variable  used  in  Fourier  calculation 

CAVOL  Piston  cavitation  volume  IN**3 

Cl  Temporary  variable  used  in  Fourier  calculation 

CPRESS  Case  pressure  - steady  state  PSI 

CSPRESS  Case  to  inlet  pressure  at  zero  case  drain  flow  PSI 

COEF  Temporary  variable  used  in  Fourier  calculation 

DANG  Incremental  shaft  rotation  angle  used  in  pre- 
compression calculation  RAD 
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SYMBOL 


DESCRIPTION 


UNITS 


■- 


V 


«■:  i 


; »-  ■ 

r. 


DIACT 

DIAPIS 

DISAM 

DLEAK 


Diameter  of  swashplate  actuator  - input  data 
Input  data  pumping  piston  diameter 
Maximum  actuator  displacement 

Leakage  from  one  cylinder  during  rotation  through 
incremental  angle  (DANG) 


DPRESD 

DPRESP 

DSWASH 

DT 

DVOL 

DX 

ETA(J) 

FNTZ 

FQ1(I,KK) 

FQl(KKN.l) 


FQ1I(-,-) 

HPRESS 

HOFF 

I 

IFL 

J 

JK 


Pressure  change  in  cylinder  during  decompression 

Pressure  change  in  cylinder  during  precompression 

Incremental  swashangle  due  to  incremental  speed 
change 

Incremental  time  for  rotation  through  incremental 
angle  (DANG) 

Incremental  displacement  of  piston  for  rotation 
through  (DANG) 


Incremental  piston  stroke  for  rotation  through  (DANG) 

Percentage  error  between  predicted  and  resulting  Jt'1 
harmonic  pressure 

Temporary  variable  used  in  Fourier  analysis 

Complex  output  flow  of  the  It'1  harmonic,  for  the  KK*"^1 
test,  from  Fourier  analysis 


Complex  flow  for  the  next  harmonic,  KKN,  equals  the 
last  Fourier  flow  for  the  next  harmonic,  calculated 
from  the  final  KK=3  test  balanced  flow  from  the  last 
haAaonic-FQl(KKN,l)  = FQ1(KKN,  3) 

Compl\x  inlet  flow 


Pump  outlet  steady  state  pressure 


Swashplate  offset 


Integer  counter 

Integer  counter  for  number  of  steady  state  balance 
loop  iterations 


Integer  counter 
Not  used 


IN 

IN 

IN 

IN**3 
PSI 
PS  I 

RAD 

SEC 

IN**3 

IN 


% 


CIS 

CIS 


CIS 

PSI 

IN 
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SYMBOL 


DESCRIPTION 


UNITS 


KK 

KKN 

LEAK 

LK1  - LK8 

LPRESS 

LPRESD 

LPRESP 

LVOL 

M 

NAPP 

NAPS 

N,  NJ,  NP 
NDEG 

ND1-ND9 

NHARM 

NINLT 

NKM 

NPRSOP 

NPROP 

NPRSCL 

NPRCL 

NSUSOP 


Integer  counter  for  dynamic  balancing  test 

Order  of  harmonic  (1,2,3, ) 

Constant  for  piston  lap  leakage 
Temporary  variables  used  in  flow  calculations 
Input  data-steady  state  inlet  pressure 
Piston  pressure  in  de-compression  calculation 
Piston  pressure  in  pre-compression  calculation 
Piston  volume  in  pre-compression  calculation 
Integer  counter 

Number  of  active  pistons  pumping 
Number  of  active  pistons  sucking 
Integer  counter 

Integer  counter  for  stepping  cylinder  rotation  in 
1/2  degree  increments,  beginning  with  NDEG=1  at 
piston  bottom  dead  center  on  the  swashplate 

Index  positions  for  stepping  cylinder  rotation 
through  a full  revolution,  360° 

Integer  form  of  WHARM 

Inlet  identification  code  number 

Index  position  of  first,  second,  third,  or  fourth 
piston  during  flow  calculation 

Index  position  when  cylinder  slot  starts  to  open 
to  pressure  slot 

Index  position  when  cylinder  slot  is  fully  open 
to  pressure  slot 

Index  position  when  cylinder  slot  starts  to  close 
to  pressure  slot 

Index  position  when  cylinder  slot  is  fully  closed 
to  pressure  slot 

Index  position  when  cylinder  slot  starts  to  open 
to  suction  slot 


CIS/PSI 


PSI 

PSI 

PSI 

IN**3 
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SYMBOL 

DESCRIPTION 

UNITS 

NSUOP 

Index  position  when  cylinder  slot  is  fully  open 
to  suction  slot 

- 

NSUSCL 

Index  position  w’’en  cylinder  slot  starts  to  close 
to  suction  slot 

- 

NSUCL 

Index  position  when  cylinder  slot  is  fully  closed 
to  suction  slot 

- 

NSTEPD 

Number  of  steps  in  de-compression  calculation 

- 

NSTEPP 

Number  of  steps  in  pre-compression  calculation 

- 

N2-N6 

Integer  variables  for  writing  valve  areas 

- 

ORF 

Orifice  coefficient  of  valve 

IN **2/ SEC/ LB** 

PACTU 

Actuator  pressure 

PSI 

PIA 

Piston  area 

IN**2 

PISTNO 

Number  of  pumping  pistons 

- 

POVOL 

Input  data  oil  volume  between  piston  at  midstroke 
and  port  face 

IN**3 

PIMASS 

Piston  mass 

LBS-SEC**2/ IN 

PP(  ), 
PPI(  ) 

Internal  pressure  in  pistons  1,  2,  3,  or  4 at 
a given  index  position 

PSI 

PISPR 

Piston  pressure 

PSI 

PPM(I) 

Magnitude  of  the  1*"^  harmonic  peak  pressure 

PSI 

PLEAK 

Leakage  out  of  cylinder  bore 

CIS/PSI 

PPP(I) 

Phase  angle  of  the  Ith  harmonic  peak  pressure 

RAD 

PPT(  ) 

Time  dependent  amplitude  of  pump  output  pressure 
for  each  rotation  index  position  during  output  cycle 

PSI 

PQ1(I,KK) 

th 

Complex  ou||3ut  test  pressure  of  the  I harmonic, 

for  the  KK  test  in  dynamic  balancing 

PSI 

PQ1I(I,KK) 

Complex  inlet  test  pressure  of  the  Ith  harmonic 

PSI 

PRESS 

Input  data  for  steady  state  pump  output  pressure 

PSI 

PSPG 

Actuator  pressure  due  to  spring  force 

PSI 

Ml-**?? 


SYMBOL 

DESCRIPTION 

UNITS 

P3,P5,P6,P7 

Not  Used 

QERR 

Error  between  input  and  Fourier  analysis  steady 
state  flow 

CIS 

QIN 

Flow  into  piston 

CIS 

QMAX 

Maximum  flow  capability  at  full  swashangle 

CIS/RPM 

QOUT 

Flow  out  of  piston 

CIS 

QOVB 

Total  overboard  steady  state  leakage  from  main 
program 

CIS 

QOVBT 

Test  overboard  flow  for  steady  state  balancing 

CIS 

QQ(  ), 
QQK  ) 

Flow  out  (in)  of  piston  1,  2,  3,  or  4 at  a given 
index  position 

CIS 

QQFC(I) 

QIFC(I) 

COSINE  peak  amplitude  of  pumg  output  (inlet)  flow 
from  Fourier  analysis  for  I harmonic 

CIS 

QQFS(I) 

QIFS(I) 

SINE  amplitude  of  pump^gutput  (inlet)  flow  from 
Fourier  analysis  for  I harmonic 

CIS 

QQT(N) 

Time  dependent  output  flow  from  pump 

CIS 

QO 

Not  used 

- 

RBORC 

Input  data  cylinder  centerline  circle  radius 

IN 

RV 

Input  data  cylinder  and  valve  plate  slot  center 
line  radius 

IN 

RVX 

Width  of  valve  open  area 

IN 

RO,  R3 

Temporary  variables  in  area  calculation 

IN 

R1 

Input  data  cylinder  slot  radius 

IN 

R2 

INPUT  data  valve  plate  pressure  slot  radius 

IN 

R4 

Valve  plate  suction  slot  radius 

IN 

S 

Temporary  variable  in  Fourier  analysis 

- 

SA 

Half  amplitude  of  piston  stroke  due  to  controlled 
angle  of  swashplate 

IN 

SSA 

Half  amplitude  of  piston  stroke  due  to  fixed  swash- 
plate  cross  angle 

IN 
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SYMBOL 

DESCRIPTION 

UNITS 

1 

1 

SAM 

Maximum  piston  half  stroke  at  maximum  swashangle 

IN 

1 

I 

SLEAK 

Leakage  into  cylinder  bore 

CIS/PSI 

1 

SLOTW 

Cylinder  slot  width 

IN 

1 

SLTHAG 

Cylinder  slot  width  half  angle 

RAD 

1 

SWASH 

Input  data  for  maximum  swashangle 

DEG 

1 

THPRS 

Input  data  valve  plate  pressure  slot  start  angle 

DEG 

r 

THPRE 

Input  data  valve  plate  pressure  slot  end  angle 

DEG 

THSUCS 

Input  data  valve  plate  suction  slot  start  angle 

DEG 

I THSUCE 

Input  data  valve  plate  suction  slot  end  angle 

DEG 

1 THETA 

Angular  position  of  cylinder  slot  centerline 

RAD 

* THEOLD 

Last  Angular  position  of  cylinder  slot  centerline 

RAD 

TLEAK 

Input  data  pump  internal  leakage  to  case 

CIS 

TLEAKT 

Test  pump  internal  leakage  for  steady  state  balancing 

CIS 

TORAAV 

Average  total  torque  due  to  piston  inertia 

IN-LBS 

TORPAV 

Average  total  torque  due  to  piston  pressure 

IN-LBS 

t i 

TORQ 

Total  swashplate  torque  at  each  calculation  point 

IN-LBS 

1 

L 

TORQAC 

Swashplate  torque  due  to  piston  inertia  at  each 
calculation  point 

IN-LBS 

h 

V 

r 

TORQAS 

Summation  of  TORQAC 

IN-LBS 

C 

t. 

F 

r 

TORQPR 

Swashplate  torque  due  to  piston  pressure  at 
each  calculation  point 

IN-LBS 

TORQPS 

Summation  of  TORQPR 

IN-LBS 

TORQSU 

Summation  of  TORQ 

TORQl 

Temporary  variable 

- 

TORTAV 

Total  average  torque 

IN-LBS 

TRACAV 

Average  torque  due  to  cross  angle 

IN-LBS 

TRQACR 

Torque  due  to  cross  angle  at  each  calculation  point 

IN-LBS 

ku 
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SYMBOL 

DESCRIPTION 

UNITS 

TRQACS 

Summation  of  TRQACR 

IN-LBS 

U0,U1,U2, 

U3 

Temporary  variables  used  in  Fourier  analysis 

- 

VA 

Piston  volume  at  a given  index  position 

IN**3 

VAREA(  ) 

Cylinder  slot  flow  area  at  each  index  position, 
0-360°  in  1/2°  increments 

IN**2 

WINC 

Input  data  pump  speed  increment 

RPM 

W 

Harmonic  frequency  (same  as  A in  main  program) 

RAD/ SEC 

W START 

Input  data  first  pump  speed  calculation  point 

RPM 

XA 

Piston  position  at  a given  index  position 

IN 

XLAST, 

XOLD 

Position  of  piston  at  last  index  position 

IN 

XNEW 

Position  of  piston  at  new  index  position 

IN 

Y 

Current  calculation  pump  speed  (same  as  W in 
main  program) 

RPM 

ZO 

Pump  shunt  impedance  for  Ith  harmonic 

PSI/CIS 

ZIP(  ) 

Complex  impedance  of  load  on  pump  outlet  for 
each  harmonic 

PSI/CIS 

ZAP(  ) 

Complex  impedance  of  load  on  pump  inlet  for 
each  harmonic 

PSI/CIS 

nnnnfj  nnonn 


4.1.7  Specifications  and  Initialization  - Listing 


SUBROUTINE  PUMP  ( WSTART, Y, Z I P, NHARM , Q0V8 , PRESS, WINC , PI3TN0, 

+NINLT, ZAP) 

* REVISED  MARCH  3,1975  * 

* VARIABLE  TYPES,  DIMENSIONS,  COMMONALITY* 

REAL  LPRtSS , LVOL, LEAK , LK 1 , LK 2 , LK3 , LK 4 , LK5 , LK6 , LK7 , LK8 

REAL  LPRESP, LPRESD 

COMPLEX  BETA ,G,P,Q,Z,ZV2,ZV 

COMPLEX  Q0,Z0,ZIP,P3,ZAP 

COMPLEX  FQ1 , PQ1 , Z EQ , PQ1 1 , FQ1I 

COMMON  BETA , G , P , Q, Z , XBE , 3Ek, BEI , BERP , BEI P , RHO , BULK , VOL , W , VISC , PAR 
1M, PI,  IEL,NEL, KTYPE ( 40) 

DIMENSION  G( 2,2,40) , PARM( 8,40) ,P(40),Q(40),Z(40) 

DIMENSION  QQT( 81) , PPT( 81) ,QOFC( 11) ,QQFS( 11) , PPM(  11)  , PPP(  11) 

DIMENSION  PP( 6 ) ,00(6) , PTP(81) 

DIMENSION  ZIP( 10) , ZAP( 10) 

DIMENSION  XL( 6) , VAREA( 800) 

DIMENSION  FQ1( 10,3), PQl ( 10,3) ,ZEQ( 10) , ETA ( 10) 

DIMENSION  PISPR{ 800) ,QQI( 81) , PPI( 81) 

DIMENSION  QIFC( 11) ,QIFS( 11) ,FQ1I( 10, 3) ,PQ1I( 10, 3) 

DATA  VAREA/ 8 00*0. 0/, PIS PR/ 8 00*0. 0/ 

♦SOLUTION  METHOD* 

♦INITIALIZE  VARIABLES  FROM  INPUT  DATA  OR  MAIN  PROGRAM* 

I F( Y. NL. tf START)  GO  TO  140 
R 1 = PA  RM ( 1,1) 

SLOTM=PARM( 2,1) 

RV=PARM ( 3,1) 

RBORC=PARM( 4,1) 

D I A P I S = ? A RM  ( 5 , 1 ) 

POVOL=PARM( 6,1) 

R2=PARM( 7,1) 

P.  4 = PA  RM  ( 1 , NEL+1 ) 

SWASH=PARM( 2, NEL+1 ) 

TLLAK=PARM( 3, NEL+1 ) 

ANGCR=PARM( 4, NEL+1) 

THPRS=PARM ( 5,  NEL+1) 

THPRE=PARM ( 6, NEL+1) 

T H 3 UC S = PA Ri'i ( 7,  NEL+1) 

THSUCE=PARM( 8.NLL+1) 

LPRESS  = PARM ( l,NEL  + 2) 

HOFF=PA RM( 2 , NEL+2 ) 

DISAM=PARM( 3, NEL+2) 

ACTLEV0=PARM( 4, NEL+2) 

PIMASS  = PARM ( 5 , NLL+2 ) 

CPRESS=PARM(  6,  NEL+2) 
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4.1.7  Cont 1 d 

CSPRES=PARM(  7,NEL+2) 

DIACT=PAR.i(  3,  NEL+2) 

ARACT=DIACT**2*PI/4. 

Q0VBT=Q0V3 
TLEAKT=TLEAK 
A5WASH=SWASH/ 57 . 3 

nopist=pist:'JO 

SLTHAG= ( ASI N ( S LOTrt’/ ( 2 . * RV ) ) ) * 5 7 - 3 

NAPP=( 13  0.+2.*S  LTHAG-THPRS-TH  PRL ) /3  6 0 . * PI3TMO+1 . 
NAPS= ( 180. +2.*SLT4AG-TrtSUCS-THSUCL)/360.*PI3TNO+l . 


4.2  SECTION  1 - VALVE  AREA  CALCULATION 


Figures  4-2,  4-3,  and  4-4  illustrate  modeling  parameters  for  a typical 
aircraft  rotating  piston  hydraulic  pump,  including  those  required  for  area 
calculations . 

Section  1 is  a generalized  computation  of  the  valve  flow  area  for  one 
cylinder  at  every  1/2  degree  position  in  a full  revolution  of  the  cylinder 
barrel.  Area  calculation  is  done  once,  the  first  time  PUMP  is  called  by  the 
main  program  for  the  starting  pump  speed  (W  = WSTART) . Computed  valve  areas 
for  each  1/2  degree  position  are  stored  in  the  VAREA  array.  Valve  areas  are 
used  in  PUMP  for  outlet  and  inlet  flow,  pre-compression,  and  de-compression 
calculations . 

Section  1 first  calculates  the  angular  increment,  based  on  the  number 
of  pistons,  to  produce  720  divisions  per  revolution,  (.5°  for  a 9 piston 
pump)  and  the  index  positions  for  the  beginning  and  end  of  the  valve  plate 
pressure  and  suction  slots.  Valve  areas  are  then  calculated  for  each  portion 
of  the  cylinder  revolution  using  the  index  positions  to  set  up  the  various 
DO  loop  ranges.  Area  calculations  begin  with  the  cylinder  centerline  at  bottom 
dead  center  on  the  swash  plate  based  on  the  controlled  swash  angle  (NDEG  = 1 
in  Figure  4-2) . 

4.2.1  Math  Model  - The  basic  valve  area  calculation  model  is  illustrated  in 
Figure  4-5  for  the  opening  of  the  cylinder  slot  to  the  pressure  slot.  Variables 
are  identified  in  paragraph  4.1.6.  Valve  area  is  initially  due  to  two  inter- 
secting circles.  Overlapping  slot  areas  are  calculated  and  finally  the  area  is 
limited  by  the  cylinder  slot  width  itself.  As  the  cylinder  slot  closes  to  the 
pressure  slot,  areas  are  obtained  by  merely  reversing  the  values  computed 
during  opening. 
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Mid  stroke  oil  volume  (POVOL)  is  the  volume  between  the  port 
face  and  the  bottom  of  the  hollow  piston. 


Cylinder  Block  <£ 


■Swash  Plate  (Yoke) 


— Axis  for  Control  of 

Variable  Swash  Plate  Angle 


FIGURE  4-4 

SWASH  PLATE  PARAMETERS 
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Areas  for  opening  and  closing  the  cylinder  slot  to  the  suction  slot  are 

also  calculated  with  the  Figure  4-5  math  model,  except  that  the  valve 

f 

plate  suction  slot  radius  (R4)  is  used  instead  of  the  pressure  slot  radius 

(R2). 

4.2.2  Assumptions  - The  cylinder  slot  has  semi-circular  ends,  and  is 
assumed  to  be  rectangular  rather  than  a circular  segment.  The  centerline 
radii  (RV)  of  all  slots  are  assumed  to  be  equal,  i.e.  cylinder  slot,  valve 
plate  pressure  and  suction  slots. 

4.2.3  Computation  Method  - Areas  are  calculated  for  each  1/2  degree 
increment  of  cylinder  block  rotation  from  0 to  360  degrees. 

4.2.4  Approximations  - Area  formulas  in  Figure  4-5  are  not  exact, 
however,  the  error  is  less  than  .1%. 

4.2.5  Limitations  - Pumps  with  non-typical  timing  (valve  plate  configura- 
tions)  may  require  that  valve  areas  be  computed  manually  and  read  into 
the  main  program,  instead  of  being  computed  in  PUMP. 

4.2.6  Variable  Names  - See  paragraph  4.1.6. 

E 


VAREA  = R12(ABETA  - sin(ABETA)  x cos (ABETA) ) 
+ R22 (ALPHA  - sin (ALPHA)  x cos(ALPHA)) 
when  RO  < 0 

VAREA  = .5  x TT (Rl2  + R22)  - 2 x RO  x R3 

where:  R3  = Rl  if  R2  >R1 
or  R3  = R2  if  Rl  >R2 


Figure  4-5  Pump  Port  Valve  Area  Calculations 
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4.2.7  Section  1 — Valve  Area  Calculation  - Listing 

SECTION  1 VALVE  AREA  CALCULATION  FOR  FULL  360  DEGREES  REVOLUTION 


COMPUTE  VALVING  INDEX  POSITIONS  FOR  EIGHTY  FLOW  INCREMENTS 

AINC=4. 5/PISTNO 
NPRSOP= ( THPRS-SLTHAG) /AINC+1. 

NPROP=( THPRS+SLTHAG) /AINC+1 . 

NPRSCL= ( ISO. -THPRE-SLTHAG) /AINC+1 . 

NPRCL=( ISO. -THPRE+SLTHAG) /AINC+1 . 

NSUSOP=( ISO. +THSUCS-SLTHAG) /AINC+1. 

NSUOP= ( 1S0.+THSUCS+SLTHAG) /AINC+1. 

NSUSC  L= ( 360 . -THSUCE-SLTHAG) /AINC  + 1 . 

NSUCL=( 360. -THSUCE+SLTHAG)/AINC 
DO  400  NDEG=1 , NPRSOP 
VAREA( NDLG) =0.0 
400  CONTINUE 
R3=Rl 

I F ( R 1 . GT . R 2 ) R3  = R2 
NDl=NPRSOP+l 
ND2=N  PROP- 1 
DO  500  NDEG=ND1 , ND2 
ANG={ NDLG-NPRSOP) +AIMC/57. 3 
RVX  =ANG  * RV 

I F ( RVX . GT . S LOTW ) RVX=S  LOTW 
R0=Rl+R2  -RVX 
IF(RO.LE.O.Ol)  GO  TO  410 
ALPHA= ( R0**2-Rl**2+R2**2)/( 2.0*R0*R2) 

ABETA=( R0**2+Rl**2-R2**2)/( 2. 0*R0*R1) 

IF( ALPHA. GT. . 9999. OR. ABETA. GT. .9999)  GO  TO  420 
A3ETA  =ACOS  (ABETA) 

C 360  ABETA=ARCOS( A3ETA) 

ALPHA=ACOS  (ALPHA) 

C360  ALPHA=ARCOS( ALPHA) 

AVAREA=R 1*  Rl*  ( A BETA- S I N ( A 3 ETA ) *COS  ( ABETA) ) 

VAREA(NDEG) =R2*R2*( ALPHA-SIN (ALPHA) *COS( ALPHA) ) +AVAREA 
GO  TO  500 
410  CONTINUE 

VAREA ( NDEG ) = 0.5*PI*( Rl* R1+R2* R2 ) - 2 . 0* R0* R3 
GO  TO  500 

420  VAREA ( NDEG ) =0 . 0 
500  CONTINUE 

DO  550  NDEG=NPROP, NPRSCL 

VAREA ( NDLG) =PI* ( R3* * 2 ) + ( S LOTW- 2 . * R3 ) *2. *K3 
550  CONTINUE 

ND3=NPRSCL+1 
ND4=NPRCL-1 
1 = 1 

DO  600  NDEG=ND3 , ND4 
VAREA ( NDEG) = VAREA ( N PROP- 1 ) 

1 = 1 + 1 

600  CONTINUE 
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4 .2.1  Coin'd 

no  •> n N’.')i-;i;=-Ni’iu,i.f nsusoi’ 

VAKI  A(  NUl.C.)  *0.0 
hSO  CONTINUE 

Il’(  U1  .OT.IM)  RI--R4 
Nn'.^N.oifSoio  I 
Nn<t*Ni>iior- 1 
no  700  NDKONDS,  N1H, 

A N < » ~ ( NPI.lt  — N2ill;»OP ) * A 1 NIC/  '>  /.  I 
KVX  = A N 0 * KV 

1 K ( KVX  . OT  . 0. 1 ,OTv* ) KVXMO.OTW 
U 0=K l IK  7- KV X 

IK(  K0.  l.H.  0.0  I ) C.O  TO  M>0 

AI.PIIA"1  ( K0*  * 2-K  1 * * 7 * K 7*  * 2 ) / ( 2.0*  K0*  K 2 ) 

AIM  TA  - ( K0**2l  Kl  * *2-K2**2)/(  2. ()*K0*K  I ) 

1F(  AI.PIIA. C.T.  .0000. OK.  AIM'.TA.UT.  . ) NO  TO  f,  70 

AIM'TA  *ACO:?(  AIM  .TA ) 

M>0  MM  .TA  - A RCOS  ( AlU.TA  ) 

AliPIIA-ACOti  ( A I.  PI  I A ) 

IMI  AI.PIIA  =AKCOU(  AI.PIIA) 

av.aki:a=  k i * k i * ( aim-.ta-:; i n(aih:ta)  *cos(  aim-.ta)  ) 

VAKI  A(  M l>l  0 ) = N2*R2*  ( AI.PIIA-.S  I N(  AI.PIIA)  *COU(  AI.PIIA  ) ) +AVARI.A 
CO  TO  700 
(,(,0  CONTINUE 

vakha ( nim:o)  = o.  s*pi  * ( k!  *ui  + k?.*k2) - 2.  o*ko*:;  j 

00  TO  700 

K 7 0 VAKI  . A ( NDIC, ) = 0.0 
7 00  CONTI  NIM: 

no  7 so  Nor.c,=NSUop,N»iii;ci. 

VAKHA  ( NDEC,)  = PI*  ( K.I*  *2)  + ( SEOTW-2. * K3  ) *2.  *K  3 

7 SO  CONTI NUE 

Nn7  = Nsiu;ci,+  i 

NOK  = NSUCIj-  1 

1 = 1 

no  son  Nni;o=i\m7, nd« 

VAKEA(NUUO)  =VARHA(  NSUOP-I  ) 

1 = 1 + 1 

900  CONTINUE 

NnO=360./AI NC 
DO  9 50  NDEU=NSUCL,ND9 
VARLA( NDLG) =0.0 
950  CONTINUE 

i*  RITE  ( 6,340)  N PRSOP , N PROP , N PRSCL , N PRCL , NSUSOPfNSUOP, NSUSCL,  NSUC L 

8 40  F OR.iAT ( 8(  5X,  15)  ) 

NJ=ND9/6 
DO  860  J = 1 , N J 
N2=J+NJ 
N3=J+2*NJ 
N4=J+3*NJ 
N5*J+4*NJ 
N6=J+5*NJ 
360  CONTINUE 
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4.3  SECTION  2 STEADY  STATE  SWASH  ANGLE  AND  OUTPUT  PRESSURE  CALCULATION 


Section  2 calculates  the  steady  state  swash  angle  as  a function  of  pump 
speed,  circuit  overboard  flow  (valve  leakage),  and  pump  internal  leakage. 

When  the  swash  angle  is  maximum,  the  steady  state  pump  output  pressure  is  cal- 
culated. 

On  the  first  call  of  PUMP,  certain  constants  are  calculated;  cylinder 
bore  area  (PIA),  maximum  half  stroke  (SAM),  maximum  flow  per  rpm  (QMAX), 
orifice  flow  coefficient  (ORF) , and  the  cylinder  cavitation  volume  is  set  to 
zero.  These  calculations  are  bypassed  on  all  subsequent  calls  of  PUMP.  The 
steady  state  loop  counter  (IFL)  is  initialized  to  (1)  each  time  PUMP  is  called 
for  a new  pump  speed. 

Swash  angle  (ASWASH)  is  first  estimated  as  a function  of  the  pump  speed 
and  the  input  data  for  circuit  overboard  flow  and  pump  internal  leakage.  If 
the  pump  is  at  full  stroke,  control  passes  to  the  last  part  of  section  2 
where  a steady  state  pressure  (HPRESS)  is  calculated.  If  the  pump  speed  is 
high  enough  to  meet  inputed  circuit  flow  demands,  the  new  swash  angle  is  esti- 
mated by  adjusting  the  old  angle  with  an  incremental  swash  angle  adjustment 
calculated  from  the  new  and  old  pump  speeds.  Various  tests  are  included  to 
insure  a stable  calculation,  and  smooth  transition  from  full  swash  angle  at 
low  pump  speeds,  and  from  one  pump  speed  to  the  next. 

4.3.1  Math  Model 

4. 3. 1.1  Swash  Angle  - Two  methods  of  calculating  swash  angle  are  used.  One 
calculates  swash  angle  by  multiplying  the  maximum  swash  angle  (SWASH)  by  the 
ratio  of  the  required  total  input  flow  demand  (QOVB  + TLEAK)  to  the  pump 
delivery  capability  at  the  current  speed  (QMAX*Y) . 


ASWASH  = 


SWASH 

57.3 


(QOVB  + TLEAK) 
(QMAX  x Y) 


Equation  (3)  is  used  for  recalculating  ASWASH  to  balance  flow,  except  that 
adjusted  values  of  flow  are  used  (QOVBT  + TLEAKT) . 


1 


The  other  method  computes  an  incremental  swash  angle  (DSWASH)  based  on 
the  new  and  old  pump  speeds,  where 

DSWASH  = ASWASH(2)  - ASWASH(l) 


From  equation  (3) 


DSWASH 


SWASH (QOVB=TLEAK)  1_  1_ 

57.3  QMAX  X Y2  Y1 


(4) 


where  Y1  = old  pump  speed 

Y2  = new  pump  speed  = Y (current  calculation  value) 


However, 


1 1_  _ Y1  - Y2 

Y2  ” Y1  Y2Y1 


(5) 


and  the  speed  increment 

WINC  = Y2  - Yl.  (6) 

Combining  (5)  and  (6),  and  substituting  in  (4)  yields, 


1 _ -WINC 

Y2  Yl  ~ Y2  - YxWINC 


(7) 


nquAcu  = SWASH (QOVB+TLEAK)  -WINC 

57.3  QMAX  X Y2  - YxWINC 


(8) 


4. 3. 1.2  Output  Pressure  - If  the  pump  is  at  maximum  stroke,  steady  state 
pump  output  pressure  (HPRESS)  is  calculated  as  a function  of  the  pump  maximum 


delivery  capacity,  the  input  flow  demand  (QOVB  + TLEAK) , and  the  input  steady 
state  pressure  (PRESS). 

For  an  open  circuit,  the  initial  estimate  of  output  pressure  is 


HPRESS  = PRESS 


(QMAX  x Y) 
(QOVB+TLEAK) 


(9) 


The  flow  exponent  value  (1.05)  is  derived  from  a typical  multi-branch  system 
with  integrated  actuators  having  both  electrical  and  mechanical  servovalves. 
Second  and  subsequent  iterations  for  steady  state  pressure  balancing  are 
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calculated  by  correcting  the  last  pressure,  based  on  the  error  between  the  new 
overboard  flow  (QOVBT)  and  the  last  steady  state  Fourier  analysis  flow  (QQFC(l)). 

HPRESS(New)  = HPRESS(old)  x (1  - (QOVBT-QQFC(l) ) / 25 . ) (10) 

In  a closed  circuit,  the  overboard  flow  Is  zero,  and 

HPRESS(New)  = HPRESS(old)  x dD 

Equation  (11)  is  used  for  both  initial  and  subsequent  iterations  in  closed 
circuit  balancing.  The  pressure  is  assumed  to  vary  linearly  with  flow,  based 
on  characterizing  the  pump  internal  leakage  (TLEAKT)  as  viscous  flow. 

4.3.2  Assumptions  - See  4.3.1  above. 

4.3.3  Computation  Method  - See  4.3.1  above. 

4.3.4  Approximations  - See  4.3.1  above. 

4.3.5  Limitations  - The  steady  state  calculation  is  not  sensitive  enough  to 
balance  rapidly  for  very  low  inputed  flow  demands  at  very  high  pump  speeds, 
e.g.  above  10,000  rpm.  It  may  be  too  sensitive  to  balance  with  very  high 
inputed  flow  demands  at  very  low  pump  speeds,  e.g.  50  gpm  at  50  rpm. 

4.3.6  Variable  Names  - See  4.1.6. 

1 


1 
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4.3.7  Steady  State  Swash  Angle  & Pressure  Calculation  - Listlni 


SECTION  2 SWASH  ANGLE  AND  STEADY  STATE  OUTPUT  PRESSURE  CALCULATIO 


PIA=DIAPIS**2*PI/4. 0 
PISPR( NSUCL) =LPRESS 
CA VOL=  0.00 

SAfl  = RBORC*TAN ( SWASH/ 5 7 . 3) 

QMAX=0 . 3*SAil*  PIA 
ORF=2 . O/RHO 
ORF= .6  5*  SQRT ( ORF ) 

140  CONTINUE 
IFL=  1 

IF(ASWASH.LT. SWASH/57. 3)  GO  TO  151 
ASWASH=SWASH* ( QOVB+TLEAK ) / ( QMAX* Y ) /5 7 . 3 
IF( ASWASH.GT. SWASH/57. 3)  ASWASH=SWASH/57. 3 
GO  TO  158 

151  IF( Y.EQ.WINC)  GO  TO  156 

DSWASH=WINC/( ( Y) * * 2 . -Y*WI NC ) 

DSNASH=SWASH*  ( QOVfi+TLEAK  ) * DSW ASH/QMAX/ 5 7 . 3 
IF  ( DSWASH  . GE . ASWASH ) GO  TO  156 
ASWASH=ASWASH-DSvvASH 
GO  TO  156 

155  ASwASH=3WASH*  ( QOVBT+TLtAKT)  / ( QilAX*  Y)  / 57 . 3 

156  I F ( ASWASH.LT. SWASH/57. 3)  GO  TO  178 
ASWASU=SWASH/57. 3 

158  I F { QOVB . EQ. 0 . 0 ) GO  TO  165 
IF( IFL.NE. 1)  GO  TO  159 

HPRESS  = PRESS*  ( ( QilAX*  Y ) / ( QOVB+TLEAK ) )**1.05 
GO  TO  175 

159  H PRESS=HPRESS* ( 1 . - ( QOVBT-QQFC ( 1) )/25. ) 

GO  TO  175 

165  HPRESS=PRESS*QNAX* Y/TLEAKT 

175  I F { HPRESS.GE. PRESS. OR. HPRESS. LT. 1. 0)  HPRESS=PRESS 
GO  TO  179 
178  HPRESS=PRESS 


i 
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4.4  SECTION  3 - CALCULATION  OF  PISTON  PRE-COMPRESSION  PRESSURE 

Section  3 calculates  the  cylinder  pressure  which  exists  just  before 
the  cylinder  slot  starts  to  open  to  the  valve  plate  pressure  slot. 

This  pressure  is  the  result  of  pre-compression  in  the  cylinder  during  that 
portion  of  cylinder  block  rotation  when  the  cylinder  slot  is  blocked  by  the 
valve  plate,  between  the  suction  and  pressure  slots. 

4.4.1  Math  Model  - Piston  motion  is  the  sum  of  two  sinusoidal  motions  as 
shown  in  the  following  diagram. 


I— Bottom  Dead  Center  for 
Controlled  Swash  Plate 
Position 
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Total  piston  motion  is  the  sum  of  the  fixed  angle  (ANGCR)  component  and  the 
controlled  angle  (ASWASH)  component.  A pressure  dependent  factor  for  leakage 
from  each  cylinder  to  case  is  estimated  for  cylinder  pressures  above  inputed 
case  pressure  as 

PLEAK  = TLEAK  / (PRESS*NAPP) . (12) 

Leakage  from  the  case  to  each  cylinder  for  cylinder  pressures  below  case 
pressure  is  estimated  from  the  factor 

SLEAK  = -(TLEAK/ NAPS/ SQRT(CSPRES) ) . (13) 

Capitation  volume  in  the  cylinder,  if  any,  is  calculated  and  tracked  throughout 
the  cylinder  block  revolution.  Piston  pressures  are  stored  for  each  position 
throughout  the  360°  calculation.  Time  dependent  oscillatory  outlet  pressure 
is  initialized  to  zero  PSI. 

4.4.2  Assumptions  - If  inlet  analysis  is  not  selected,  the  piston  is  assumed 
to  be  completely  filled  on  the  suction  stroke,  and  the  initial  cylinder 
pressure  is  assumed  to  be  the  inputed  steady  state  value.  Initial  cylinder 
pressure  is  assumed  to  be  that  of  the  last  speed  calculation  when  inlet 
analysis  is  performed.  It  is  started  at  the  steady  state  value  for  the  first 
calculation  at  the  first  speed.  Pressure  dependent  leakage,  and  sinusoidal 
piston  motion  are  assumed.  Bulk  modulus  is  recalculated  at  each  step  based  on 
the  last  step  cylinder  pressure,  and  the  bulk  modulus  formula  used  in  FLUID. 

4.4.3  Computation  Method  - The  calculation  is  performed  in  1/2  degree  incre- 
ments (DANG)  with  the  initial  cylinder  slot  centerline  angle  (THETA)  computed 
from  the  suction  slot  end  angle  (THSUCE)  and  the  cylinder  slot  half-angle 
(SLTHAG).  The  number  of  calculation  steps  (NSTEPP)  is  calculated  based  on 
index  positions  defining  the  end  of  the  suction  slot  and  the  beginning  of  the 
pressure  slot  in  the  value  plate. 
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4.4.4  Approximations  - See  4.4.2  above 


4.4.5  Limitations  - Dynamic  effects  on  the  initial  inlet  pressure  are  not 
included. 

4.4.6  Variable  Names  - See  4.1.6. 


no  o on 


4.4.7  Section  3 - Calculation  of  Piston  Pre-Compression  Pressure  - Listini 


SECTION  3-  PISTON  PRLCOflPRESSION  CALCULATION 

179  NSTEPP=NDl+ND9-ND8-2 
DPRES  P=0 . 0 
LPRESP=PIS  PR( NSUCL) 

THETA=( SLTHAG-THSUCE)/57. 3 
PLEAK=TLEAK/( PRESS*NAPP) 

SLEAK=-( TLEAK/NAPS/SQRT( CSPRES ) ) 

DANG=A I NC/ 57. 3 
DT=AINC/( Y*6. ) 

SA=R30RC*TAN ( ASWASH) 

SSA=RBORC*TAN( ANGCR/57. 3) 

XLAST  =SSA* 31 N( THETA) -SA*COS( THETA) 

WRITE( 6,925)  CAVOL, NSUCL, LPRESP , XLAST, THETA 

DO  ISO  1=1 ,NSTEPP 

I F ( LPRESP. LT.CPRLSS)  GO  TO  162 

DLEAK=  ( L PRES P+ D P RES P/ 2.  -C PRESS)  *PLEAK*D'T 

GO  TO  164 

162  DLEAK=3QRT( C PRESS- LPRESP) *SLEAK* DT 
164  BULKP=3ULK+12.* ( LPRESP- PRESS ) 

THETA=THETA  +DANG 

XNEW  =3SA*SIN ( THETA ) -SA*COS ( THETA ) 

DX=  XNEW  -XLAST 
DVOL=DX*  PIA 
LVOL=POVOL-XNEW*  PIA 

DPRESP=( DVOL— DLEAK-CAVOL) /LVOL*BULK  P 
XLAST=XNEW 

LPRES  P=LPRLSP+DPRESP 
NP=NSUCL+I 

IF ( NP. GE. ND9+1 ) NP=NP-ND9 
I F ( LPRESP. GT. 0. 01)  GO  TO  166 
CAVOL=C AVOL-DVOL+DLEAK 
LPRE3P=0 . 0 1 
DPRESP=0. 0 
GO  TO  169 
166  CAVOL=0 . 0 

169  PISPR( NP) =LPRESP 

IF( Y.EQ.50. ) GO  TO  161 
IF ( Y.EQ. 1000. ) GO  TO  161 
IF ( Y.EQ. 3600. ) GO  TO  161 
GO  TO  160 

161  WRITE( 6,930)  CAVOL, NP, LPRESP, 

+XLAST, OX, LVOL, QLEAK, BULK P, THETA 
160  CONTINUE 

CAVOLD=CAVOL 
XOLD=XLAST 
THEOLD= THETA 
DO  150  N=1 , 81 
150  P PT ( N ) = 0 . 0 
KXN  = 1 
KK  = 1 

170  CONTINUE 
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4.5  SECTION  4 - PUMP  OUTLET  FLOW  CALCULATION 


Section  4 calculates  the  total  output  flow  from  the  pump  for  one  cycle, 
i.e. , 40°  of  cylinder  block  rotation  for  a nine  piston  pump.  Each  of  the 
active  pumping  pistons  (NAPP)  is  sequentially  incremented  through  80  steps. 

The  total  outlet  flow  is  determined  by  summing  that  from  each  piston.  The 
calculation  is  started  one  index  step  after  the  pre-compression  ends.  Pressure 
in  the  first  cylinder  is  initially  the  final  pre-compression  value.  Pressure 
in  the  other  open  cylinders  is  equal  to  the  sum  of  the  previously  calculated 
steady  state  output  pressure  (HPRESS)  and  time  dependent  oscillating  pressure 
(PPT)  . 

Cylinder  pressure  and  flow  calculated  at  each  step  taking  into  account 
piston  and  valve  plate  leakage,  pressure  drop  across  the  valve,  piston  motion, 
and  fluid  compressibility.  QQT(l)  is  made  equal  to  QQT(81)  to  reduce  the 
effects  of  the  calculation  start-up  discontinuity,  caused  by  assumed  initial 
cylinder  pressures. 

4.5.1  Math  Model  - Consider  an  active  pump  cylinder  with  its  slot  exposed 
to  the  valve  plate  pressure  slot,  and  stroking  through  an  incremented  stroke 


(DX)  . 


Cylinder  Flow  Q 


Valve  Plate 
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Assuming  that  flow  through  the  slots  follows  the  classic  orifice  flow  equation, 
then 

V2-£Pq  (14) 

RHO 

where  Cd  = orifice  flow  coefficient 
= .65 

Squaring  both  sides  of  (32) 

Q2  = 2CdxVAREA2  x APq 
RHO 

If  LK4  = 2Cd2  x VAREA2  , then 
RHO 

Q2  = LK4-  /2J?q 

Cylinder  pressure  (Pi)  at  the  end  of  the  incremental  stroke  DX  may  be 
estimated  two  ways.  The  first  estimate  includes  the  rise  due  to  stroke 
compression,  the  loss  due  to  leakage,  and  the  loss  due  to  flow,  such  that 
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Pi 


BULK  DX  PIA 

PP  + VA A 

1 + BULK  LEAK  DT  P 

VA 


(16) 


or  Pi  = LK2  (17) 

where  PP  is  the  initial  cylinder  pressure^Pf  is  the  pressure  loss  due  to  an 
average  fluid  flow  Q over  time  DT,  and  LK2  is  the  net  pressure  resulting  from 
stroke  and  leakage. 

Another  estimate  of  Pi  may  be  derived  from  the  downstream  pressure  (P2)  and 
the  orifice  pressure  drop  (APq)  such  that 

PI  = ?2  + APq.  (18) 

Downstream  pressure  is  the  sum  of  the  steady  state  (HPRESS)  and  the  harmonic 


(PPT)  pressures. 


?2  = HPRESS  + PPT  (19) 

Combining  (18)  and  (19)  yields 

?x  = HPRESS  + PPT  +APq  . (20) 

Equating  (17)  and  (20)  gives 

LK2  - APf  = HPRESS  + PPT  +Z^q 

APq  = LK2  - HPRESS  - PPT  (21) 


Pressure  loss  due  to  fluid  flow  over  time  DT  is  estimated  as 

-(vfst)'  o ■ LK3-«  <22> 

where  LK1  = 1 +^ULK^LEAK  DT^ , i>e>  the  dimensionless  leakage  factor  from 

(34).  Using  (22)  in  (21)  then  gives 


APq  = LK2  - LK3  • Q - HPRESS  - PPT 
Substituting  (23)  in  (15)  gives 


(23) 


Q2  «(LK2  - LK3  • Q - HPRESS  - PPT)LK4 

q2  + LK4  LK3-Q  - LK4  (LK2  - HPRESS  - PPT)  =0.  (24) 
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Equation  (24)  may  be  expressed  as 


Q2  + 2 ' LK5 • Q - LK6  = 0 (25> 

where 

1*5  . (26) 

LK6  = LK4 (LK2  - HPRESS  - PPT).  (22) 

The  solution  to  Equation  (25)  is 

■ - — 

Q = SIGN (LK6)  • (-LK5  + ^LK52  + j LK6  | ) (28> 

Letting  LK7  = LK52  + | LK6 | (29) 

and  LK8  = -LK5  +^/lK7  (30) 


then  the  new  average  total  flow  from  the  cylinder  is 
QOUT  = SIGN(LK8,  LK6) . 

The  new  internal  pressure  for  the  Mth  piston  at  the  end  of  the  incre- 
mental stroke  is  then  estimated  as 
PISPR(.NKM)  = LK2  - QOUT  • LK3 
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4.5.2  Assumptions  - Assumptions  used  for  calculating  pump  flow  are  listed 
below. 

a)  flow  through  the  cylinder  and  valve  plate  slots  is  described  by  the 
orifice  equation,  using  a low  orifice  coefficient  (.65)  applicable  to 
high  Reynolds  numbers,  for  all  area  conditions  from  full  open  to  closed. 

b)  the  last  fluid  flow  calculated  is  taken  as  an  average  flow  over  the 
incremental  time  period. 

c)  internal  leakage  from  the  cylinder  is  constant  over  the  incremental 
time  period. 

d)  flow  calculated  for  each  active  cylinder  is  additive  with  no 
interaction  effects  between  cylinders. 

4.5.3  Computation  Method  - Flow  is  calculated  for  one  output  cycle  of  80 
increments  regardless  of  the  increment  size. 

4.5.4  Approximations  - See  paragraph  4.5.1. 

4.5.5  Limitations  - Early  development  of  the  flow  math  model  disclosed 
instability  in  the  calculation  when  the  old  and  new  flow  were  averaged. 

Using  the  newly  calculated  flow  value  as  an  average  flow  over  the  time 
period  produced  a stable  calculation. 

4.5.6  Variable  Names  - See  paragraph  4.1.6  and  4.5.1. 
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4.5.7  Section  4 - Pump  Output  Flow  Calculation  - Listin 


C SECTION  4-  PUMP  OUTPUT  FLOW  CALCULATION 

n 

CAVOL=CAVOLD 
XLAST=XOLD 
THETA=THEOLD 
DO  ISO  N=l,81 
130  QQT ( N ) =0 . 0 

C WRITE ( 6,925)  CAVOL, N P , LPRESP , XLAST , THETA 

DO  200  M = 1 , N A P P 
DO  190  N=  1,80 
NKM=NPRSOP+N+ ( t*l-  1 ) *80 
IF  ( NKrl.GE . NPRCL+1 ) GO  TO  100 
THETA=TH ETA + DANG 

XNEW=SSA* SI N( THETA )-SA*COS( THETA) 

DX=XNEW- XLAST 
VA  = POVOL-XN EW*  PI A 
XLAST=XN  LW 

I F ( CAVOL . GT. 0.00)  GO  TO  187 
SULKP=3ULK+12.*(  PISPR(  NK.1- 1 ) -PRESS ) 

IF( PISPk(NKM-l ) .GK.CPRESS)  GO  TO  186 
LEAK=3LEAK 

LK1  = 1. +GQRT( BULK P) * LEAK* DT/VA 
GO  TO  135 
186  Lt AI<=  PLEAK 

LK1=1 . +3ULK P* LEAK* DT/VA 
135  L K 2 = ( PIS PR ( NKM-1 ) +3ULK P/ VA* DX* P I A ) / LK 1 
LK3=3ULKP* DT/VA/ LK1 
LK  4=  ( ORF*  VAREA  ( N Ki-1 ) ) * * 2 
LK5  =LK3*LK4  *0.5 
LK6  = LK4  * ( LK 2 -HPRESS-PPT( N ) ) 

I.K7  =LK5*LK5  +AGS(LK6) 

LK3  = -LK5  +5QRT( LK7 ) 

QOUT=  SIGN ( LK8 , LK6 ) 

PISPR ( NKM ) = LK  2-QOUT*  LK  3 

IF(  PISPR(NKi'l)  .GT.  . 01)  GO  TO  133 

137  CONTINUE 
LEAK  = S LEAK 

QOUT=-  ( 0.65*  VAREA  ( NKii  ) *SQRT(  2.  * ( HPRESS  + PPT(  N ) )/RHO)  ) 
PI S PR( NKH ) = . 0 1 

CAVOL=C AVOL-DX*  PIA  + SLEAK*  DT*C  PRESS  + QOUT*  DT 
IF{ CAVOL. LE. 0. 00)  CAVGL=0.00 

138  QQT ( N ) =QOUT+QQT ( N ) 

C IF(Y.NE.5000. ) GO  TO  190 

C WRITE ( 6,930)  CAVOL, NKM , PISPR( NKH ), XLAST , DX , VA , 

C +LLAK,BULKP, THETA, QQT(N) 

190  CONTINUE 
200  CONTINUE 

QQT ( 8 1 ) =QQT ( 1 ) 


A. 6 SECTION  5 - FOURIER  ANALYSIS  OF  PUMP  OUTLET  FLOW 


Section  5 performs  a mathematical  harmonic  analysis  of  the  time  dependent 
pump  total  output  flow  calculated  in  Section  4.  Flow  is  calculated  over  the 

cycle  period  for  each  harmonic  from  the  fundamental  up  to  and  including  the 

input  uarmonic  of  interest. 

Steady  state  flow  (QQFC(l))  calculated  by  the  Fourier  analysis  is  com- 
pared to  the  inputed  steady  state  overboard  flow  (QOVB)  for  swash  angles 
below  the  maximum  angle.  If  swash  angle  is  maximum,  the  Fourier  flow  is 
compared  to  the  corrected  value  of  overboard  flow  (QOVBT) . If  the  error  is 
not  acceptable,  a new  estimate  is  made  for  pump  leakage  (TLEAKT)  when  the 
model  is  closed  circuit  (Q0VB=0) . For  an  open  circuit,  a new  estimate  of 
overboard  flow  (QOVBT)  is  computed,  including  a new  pump  leakage  (TLEAKT)  if 
the  swash  angle  is  maximum. 

New  estimates  of  overboard  flow  and/or  pump  leakage  are  than  used  to 
recalculate  the  steady  state  swash  angle  or  pressure.  Pump  output  flow  and 
the  Fourier  analysis  sections  are  then  repeated  until  steady  state  balance 
is  obtained.  Harmonic  flows  (FQ1(I,KK))  are  then  calculated  from  the 
balanced  steady  state  conditions. 

Steady  state  balancing  is  by-passed  during  subsequent  dynamic  balancing 
in  Section  6 . 

4.6.1  Math  Model  - The  Fourier  analysis  is  an  IBM  subroutine  (Reference  (2)) 
which  has  been  modified  to  reduce  the  cost  of  running.  SINE  and  COSINE  amplitudes 
are  combined  into  FQ1(I,KK),  which  is  in  complex  form  with  its  phase  related  to 
the  opening  angle  of  the  first  cylinder.  A phase  of  0 or  2 II  is  at  the  moment 
when  the  first  cylinder  opens  to  the  pressure  slot.  The  real  part  is  the 
sine  wave  amplitude,  and  the  complex  part  is  the  cosine  wave  amplitude. 
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4.6.2  Assumptions  - None 


4.6.3  Computation  Method  - Fourier  analysis 


4.6.4  Approximations  - None 


4.6.5  Limitations  - None 


4.6.6  Variable  Names 


nonnn  non  o on 


4.6.7  Section  5 - Fourier  Analysis  of  Pump  Output  Flow  - Listin; 


SECTION  5-  FOURIER  ANALYSIS  OF  PUMP  OUTPUT  FLOW 


COEF=.  02469 
Cl=. 07753 
SI  =SIN(C1) 

Cl  =COS{Cl) 

S =0.0 
C =1.0 
FNTZ=QQT( 1 ) 

J =1 

210  U2=0. 0 
U1=0.0 
1=  81 

FORM  FOURIER  COEFFICIENTS  RECURSIVELY 
220  U 0 = QQT (I)+2.0*C*U1-U2 
U2  = U1 
U1  = U0 
1 = 1-1 

IF ( I - 1 ) 230,230,220 
230  QQFC( J)=C0EF*(FNTZ+C*U1-U2) 

QQFS( J) =COEF*S*Ul 
IF ( J-NHARM-l ) 240,250,250 
240  U3=C1*C-S1*S 
S =C1*S+S1*C 
C =U3 
J = J + l 
GO  TO  210 

250  QQFC( 1 ) =QQFC ( 1) *0. 5 

I F ( QQFC ( 1) .LE.0.01)  QQFC ( 1)=0.01 

CHECK  STEADY  STATE  FLOW  ERROR 

IF ( KK-2 ) 252,255,255 

252  IF ( ASWASH. GS . SWASH/57 . 3 ) GO  TO  253 
QERR=A3S ( QQFC ( l)-QOVB) 

GO  TO  256 

253  QERR=ABS ( QQFC ( 1 ) -Q0V3T) 

256  ASWAST=ASWASH*  57.3 

WRITL(  6,900)  ASWAST, SWASH, HPRESS, PRESS, QQFC(  1)  , 

+ QOVB , QOVBT , TLEAKT , TLEAK , Y 
9 00  FORMAT  ( / ,9(F10.4,3X)  , F10. 0,/) 

IF( QERR. LE. 0. 0100)  GO  TO  255 

CORRECT  OVERBOARD  ( VALVL ) FLOW  AND/OR  PUMP  INTERNAL  LEAKAGE 

IF ( QOV3.NE. 0. 0 ) GO  TO  254 
TLEAKT=TLEAKT-OQFC( l)/3. 

IF ( TLEAKT. LE. 0. 001)  TLEAKT=0. 001 
GO  TO  258 

254  I F ( ASWASH. LT. SWASH/57. 3)  GO  TO  257 


I 
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non 


4.6.7  (Cont . ) 

QOVBT=QOVBT- ( QOVBT-QQFC ( 1) )/3.0 
GO  TO  259 

257  QOVBT=QOVBT+ ( QOVB-QQFC( 1) )/3. 0 
259  TLEAKT=TLEAK*H PRESS/ PRESS 

IP(QOVBT.LE. 0.001)  QOVBT=0.001 

258  CONTINUE 
IFL=IFL+1 

IF ( IFL.EQ.50)  GO  TO  975 
GO  TO  980 
975  STOP  2222 
980  CONTINUE 

IF(ASWASH.GE. SWASH/57. 3. AND. HPRESS.LT. PRESS)  GOTO  158 
GO  TO  155 

CONFUTE  HARMONIC  FLOWS  FROM  FOURIER  ANALYSIS 


255  DO  260  I = 1 , N HA RM 

FQ1(I,KK)  = CMPLX ( QQFS ( I +1 ) , QQFC(I+1)) 
260  CONTINUE 


r 


4.7  SECTION  6 - OUTLET  PRESSURE-FLOW  BALANCE  CALCULATION 


After  the  calculation  of  pump  output  flow  and  its  Fourier  analysis  in 
Sections  4 and  5,  Section  6 estimates  the  shunt  impedance  (ZO) . Shunt 
impedance  is  then  combined  with  the  system  load  impedance  (ZIP)  to  give  the 
total  impedance  seen  by  the  pump. 

To  analyze  the  pump/system  interaction,  1/5  of  the  calculated  dynamic 
flow  FQ1(I,KK)  is  applied  to  calculate  a time  dependent  pressure  output 
(PPT(J))  in  Section  7.  This  new  output  test  pressure  is  then  used  to  re- 
calculate the  pump  output  flow  from  Section  4.  The  change  in  output  flow 
thus  produced  is  then  used  to  recalculate  the  shunt  impedance  followed  by  a 
new  estimate  of  total  impedance,  and  a new  dynamic  pressure.  The  resulting 
change  in  dynamic  pressure  is  then  used  to  update  the  time  dependent  output 
pressure.  Again,  pump  output  flow  is  recalculated  from  Section  4 using  the 
new  output  pressure.  Finally,  a third  output  pressure  is  calculated  using 
the  third  estimate  of  output  flow  and  the  load  impedance.  Earlier  simulation 
has  shown  that  this  balancing  routine  produces  a very  small  error  ETA  ( ) , 

which  is  calculated  so  that  it  may  be  written  out,  if  desired. 

Dynamic  balancing  is  repeated  for  each  harmonic  up  to  and  including  the 
input  harmonic  of  interest,  beginning  with  the  fundamental  harmonic. 

4.7.1  Math  Model  - In  earlier  empirical  work,  it  was  found  that  the  pump 
dynamic  flow  amplitude  varied  with  the  system  input  impedance,  or  more  speci- 
fically with  the  dynamic  output  pressure.  Initial  calculations  of  pump  output 
flow  were  based  on  a constant  output  pressure  which  is  the  same  as  working 
into  a zero  impedance  load.  Earlier  simulations  showed  that  the  reduction 
in  output  flow  was  somewhat  analogous  to  putting  a shunt  impedance  across  the 
output  in  parallel  with  the  system  input  impedance.  In  reality  this  shunt 
impedance  does  not  exist  because  the  output  flow  is  reduced  by  the  very  presence 
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tm 
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of  the  dynamic  pressure.  However,  using  the  shunt  impedance  analogy  allows 
the  use  of  conventional  theory  and  has  produced  some  interesting  results. 

The  idea  of  predicting  the  pump/system  interaction  is  complicated  by  the 
fact  that  the  system  input  impedance,  pump  output  flow,  pump  output  pressure, 
and  analogous  shunt  impedance,  are  all  complex  quantities  with  interacting 
phase  and  amplitude  relationships.  It  is  difficult  to  understand  the  actual 
mechanism  that  creates  the  above  noted  relationship,  but  the  method  seems  to 
work. 

4.7.2  Assumptions  - See  4.7.1  above. 

4.7.3  Computation  Method  - See  4.7.1  above. 

4.7.4  Approximations  - See  4.7.1  above. 

4.7.5  Limitations  - Unknown. 

4.7.6  Variable  Names  - See  4.1.6. 
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4.7.7  Section  6 - Pressure  Flow  Balance  - Listing 

C SECTION  6-  OUTLET  PRESSURL-FLOW  3ALANCE  CALCULATION 

C 

270  CONTINUE 
I = KKN 

IF  (KK  - 2)  200,290,300  j 

200  CONTINUE  UfSl  / l H r. 

W = Y*  PISTNO*  PI*KKN/30.  ^ /i  { / 

Z0=1 . 0E5/W* ( . 2,-1 . ) 

PQl(I.KK)  = F 0 1 ( I , K K ) *Z0*ZIP( I )/( Z0  +ZIP(I>)  / 5. 

P6=CA(1S ( PQ1  ( r , KK ) ) *5.0 
IF( Y.NE. 5000. ) GO  TO  201 
WRITL( 6, 1602)  P6,QOFC(l) 

201  P3=PQ1(I,KK) 

.111  = 0 

TO=  -45 
i-1NQ=  10 

PP.1(  l ) = CA3S  ( PQl  ( I , KK)  ) 

GO  TO  320 

290  CONTINUE 

Z0  = PQl ( I , KK- 1 ) /( FQ1(  I , KK-1 )-FQl( I , KK)  ) 

POl(I.KK)  = FQ1( I » KK-1 ) *Z0*ZIP( I )/( Z0  +ZIP( I) ) 

P6=CABS ( POl ( I , KK) ) 

IF ( Y.NE. 5000. ) GO  TO  291 
WKITL(6, 16H2)  P6,QQFC(1) 

291  P3=PQ1( I,KK)-PQ1( I, KK-1) 

PQl ( I , KK+1 ) = PQl ( I , K K ) - PQ1 ( I , KK- 1 ) 

PPP(I)  = ATAN2 ( AIMAG( PQl { I , KK+ 1 ) ) , REAL( PQl ( I , KK+ 1 ) ) ) 

PPM(I)  = CAOS( PQl ( I , KK+1 ) ) 

GO  TO  320 

300  CONTINUE 
J = K K N 

PQ1(J,KK)  = ZIP(J)  * FQl ( J , KK ) 

P6=CA!3S  ( POl  ( I , KK)  ) 

IF( Y.NE. 5000. ) GO  TO  301 
WRITE( 6, 1682)  P6,QQFC(1) 

301  CONTINUE 

LTA(J)  = CARS( 100  * (PQl(J,KK)  - PQl(J,KK-l))  / PQl(J,KK)) 
KKN  = KKN  + 1 

IF(  KKN.GT.NHAR.i)  GO  TO  335 
KK  = 1 

FQ1 ( KKN , 1 ) = FQ1 ( KKN , 3 ) 

GO  TO  270 
320  CONTINUE 
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4.8  SECTION  7 - RECONSTRUCTION  OF  TIME  DEPENDENT  PRESSURE 


Section  7 computes  the  time  dependent  output  pressure  (PPT)  from  each 
estimate  of  complex  dynamic  output  pressure  ( P 3)  from  Section  6.  The  dynamic 
balance  counter  (KK)  is  incremented  and  control  is  returned  to  Section  4 until 
dynamic  balancing  is  completed.  Complex  pump  output  balanced  flow  (Q(l))  and 
pressure  ( P ( 1 ) ) for  the  harmonic  of  interest  are  then  stored  for  returning 
to  the  main  program.  The  pump  inlet  code  number  (NINI.T)  is  then  tested.  If 
inlet  analysis  is  required,  execution  continues  to  Section  9.  If  not,  control 
is  returned  to  the  main  program. 

4.8.1  Math  Model  - PPT(J)  is  the  array  which  stores  the  80  values  of  the  time 
dependent  pressure  for  the  pump  cycle  period.  The  array  values,  which  are 
initialized  to  zero  for  each  new  RPM,  are  accumulative  as  the  calculation  pro- 
gresses for  each  balance  iteration  and  each  harmonic. 

The  value  of  PPT(J)  is  added  to  with  each  test  pressure  and  harmonic  so 
that  it  contains  the  total  of  the  balanced  pressures  for  each  harmonic  up 
through  the  selected  harmonic.  The  final  values  in  the  PPT(J)  array  then 
represent  the  actual  time  dependent  total  pressure  waveform  on  the  downstream 
side  of  the  pump  valve  plate. 

The  PPT(J)  value  is  made  up  of  the  last  PPT  value,  and  the  magnitudes 
of  last  complex  dynamic  pressure  (P3)  by 

PPT(J)  = PPT(J)  + REAL(P3) 'SIN(THETA) 

+ AIMAG(P3)*C0S (THETA)  (33) 

where  THETA  is  the  cylinder  block  rotation  angle  for  each 
incremental  position  translated  into  a 2tt  cycle  period,  in  multiples  of 
the  harmonic  number  (I). 

4.8.2  Assumptions  - None. 

4.8.3  Computation  Method  - Not  applicable. 
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4.8.4  Approximations  - None 

4.8.5  Limitations  - None 

4.8.6  Variable  Names  - See  4.1.6. 
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A. 8. 7 Section  7 - Reconstruct  Time  Dependent  Pressure  - Listin; 


SECTION  7-  RECONSTRUCTION  OF  TIME  DEPENDENT  OUTLET  PRESSURE 

DO  330  J=1 , 81 

THETA=  ( J-l ) *1*0. 07854 

PPT(J)  =PPT( J ) + REAL( P 3 ) * SI N ( THETA ) +AIMAG(P3)*  COS ( THETA ) 
330  CONTINUE 

KK  = KK  + 1 
GO  TO  170 
335  CONTINUE 

A5WAST=ASNASH*  5 7. 3 

WRITE ( 6,900)  ASWAST, SWASH, HPRESS, PRESS, QQFC(  1) , 

+QOVB , Q0V3T, T LEA KT, T LEAK , Y 
Q( 1 ) =FQ1 ( NHARM , 3) 

P( 1 ) =PQ1 ( NHARM , 3 ) 

IF(NINLT. EQ. 121)  GO  TO  1900 


* 
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A. 9 SECTION  8 - PISTON  DECOMPRESSION  CALCULATION 

The  calculation  of  piston  pressure  during  de-compression  are  identical 
to  the  pre-compression  calculation  described  in  Section  3.  Index  numbers 
for  the  de-compression  portion  of  the  block  revolution  are  used.  Cylinder 
cavitation  volume  is  tracked  continuously.  Piston  pressure  is  limited  to 
.01  PSI  if  the  cylinder  cavitates. 
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4-9.1  Section  8 - Piston  Decompression  Calculation  - Listing 
SECTION  8-  PISTON  DECOMPRESSION  CALCULATION 

LPRESD=PISPR( NPRCL) 

NSTEPD=N3US0P-NPRCL 
DPRESD=0. 0 

WRITE ( 6,925)  CAVOL, NPRCL, LPRESD, XLAST, THETA 
DO  1000  1=1 , NSTEPD 
I P ( LPRESD. LT.CPRESS)  GO  TO  360 
DLEAK=( LPRESD+DPRESD/2.-CPRESS) *PLEAK*DT 
GO  TO  365 

360  DLEAK=SQRT(CPRESS-LPRESD) *SLEAK* DT 
365  BULKP=3ULK+12.*( LPRLSD-PRESS ) 

THETA=THETA  +DANG 

XNEW  =SSA*3IN ( THETA ) -SA*COS ( THETA ) 

DX=  XNEW  -XLAST 
DVOL  = DX  * PIA 
LVOL=  POVOL-XNEW  *PIA 

DPRESD= ( DVOL-DLEAK-CAVOL) /LVOL*BULKP 
XLAST=XNEW 

LPRESD=LPRESD+DPRESD 

NP=NPRCL+I 

IF ( LPRESD. GT. 0. 01)  GO  TO  918 
CAVOL=CAVOL-DVOL+DLEAK 
LPRESD=0 . 01 
DPRESD=0 . 0 
GO  TO  920 
918  CAVOL=0 . 0 
920  PIS PR ( NP) = LPRESD 

IF(Y.EQ.50. ) GO  TO  922 
IF ( Y. EQ. 1000. ) GO  TO  922 
IF(Y.EQ. 5000. ) GO  TO  922 
GO  TO  1000 

922  WRITE( 6,930)  CAVOL, NP, LPRESD, 

+XLAST, DX, LVOL, DLEAK , QULKP, THETA 

930  FORMAT ( FI 0. 7, 5X, I3,5X,F8.2,2X,4(F10.6,2X),F10.0,5X,2(F10.3,5X)) 
925  FORMAT ( F10. 7, 5X, 13, 5X,F8. 2, 2X,F10. 6, 53X,F10. 3) 

1000  CONTINUE 

CAVOLD=CAVOL 
XOLD=XLAST 
THEOLD=THETA 
KKN  = 1 
KK  = 1 

DO  1050  N=1 , 81 
1050  PPI ( N ) =0 . 0 
1100  CONTINUE 
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4.10  SECTION  9 - PUMP  INLET  FLOW  CALCULATIONS 

The  calculation  of  pump  inlet  flow  is  identical  to  that  described  in 
Section  4 for  outlet  flow.  The  initial  calculation  is  based  on  the  inputed 
steady  state  inlet  pressure.  The  pump  inlet  code  number  (NINLT)  is  checked 
at  the  end  of  Section  9.  If  no  return  system  load  exists,  control  passes 
to  Section  13  where  swashplate  torques  are  calculated.  This  omits  dynamic 
balancing  at  the  inlet,  but  provides  a good  estimate  of  torques  without 
modeling  the  return  system.  If  return  system  load  exists,  control  passes 
on  to  Section  10. 
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4.10.1  Section  9 - Pump  Inlet  Flow  Calculation  - Listing 


SECTION  9-  PUMP  INLET  FLOW  CALCULATION 

CAVOL=C AVOLD 
XLAST=XOLD 
THETA=THEOLD 
DO  1150  N=1 , 81 
1150  QQI ( N ) =0 . 0 

W R I T E ( 6,925)  CAVOL,NP, LPRESD, X LAST, THETA 

DO  150  0 fl  = 1 , N APS 

DO  14  00  N = 1 , 8 0 

NKM=NSUSOP+N+ ( M— 1 ) *8  0 

IF ( NKM . GE . NSUCL+1 ) SO  TO  1400 

TH ETA =T H ETA + DANG 

XNEW=SSA*3IN( THETA )-SA*COS( THETA) 

DX=XNEW-XLAST 
VA=  POVOL-XN  LW*  PIA 
XLAST=XNEW 

IF ( CAVOL. GT. 0.00)  GO  TO  1370 
BULKP=3ULK+12.* ( PISPR ( NKM- 1 ) -PRESS ) 

IF ( PIS  PR ( NKM-1 ) . GL . C PRESS ) GO  TO  1360 
LEAK=SLEAK 

LK1=1 . +SQRT(  BULKP) *LEAK*DT/VA 
GO  TO  1365 
1360  LEAK=PLEAK 

LK1  = 1.+3ULKP*LEAJ<*DT/VA 
1365  LK2=( PISPR( NKH-1 )+3ULKP/VA*DX*PIA)/LKl 
LK  3 = 3ULK  P*  DT/VA/LK1 
LK  4=  ( ORF* VAREA( NKM)  )**2 
LK5  = LK3*  LK4  *0.5 
LK6=LK4* ( LK2-LPRESS-PPI ( N) ) 

LK7  =LK5*LK5  +A3S(LK6) 

LK8  = -LK5  +SQRT( LK7 ) 

QIN=SIGN( LKR, LK6) 

PISPR ( NKM) =LK2-QIN*LK3 
IF ( PISPR(NKM) .GT. . 01)  GO  TO  1380 
1370  CONTINUE 

LEAK=SLEAK 

QI N=- ( 0 . 6 5* VAREA ( NKM ) *SQRT( 2. * ( LPRESS  + PPI ( N ) )/RHO) ) 
PIS  PR ( NKM ) = . 0 1 

CAVOL=CAVOL-DX*  PI A+SLEAK*  DT*CPRESS+  QI N* DT 
I F ( CAVOL. LE. 0. 00)  CAVOL«0.00 
1380  QQI ( N ) =QIN+QQI ( N ) 

IF( Y. NL. 5000. ) GO  TO  1400 

WRITE ( 6,93  0)  CAVOL , NKM , PIS  PR ( NKM ) , XLAST, DX, VA, 

+ LEAK, BULK P, THETA, QQI (N) 

1400  CONTINUE 
1500  CONTINUE 

QQI ( 81 ) =QQI ( 1 ) 

I F ( NINLT. EQ. 122)  GO  TO  350 
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4.11.1 


Section  10  - Fourier  Analysis  of  Pump  Inlet  Flow  - Listing 


SECTION  10-  FOURIER  ANALYSIS  OF  PUliP  INLET  FLOW 

COEF=. 02469 
Cl=. 07753 
SI  =SIN ( Cl ) 

Cl  =COS(Cl) 

S =0.0 
C =1.0 
FNTZ  = QQI  ( 1 ) 

J =1 

1610  U2=0. 0 
U1=0. 0 
1=  81 

FORM  FOURIER  COEFFICIENTS  RECURSIVELY 
1620  U0=QQI( I)+2.0*C*U1-U2 
U2  = Ul 
U1  = U0 
1 = 1-1 

IF(I-l)  1630,1630,1620 
1630  QIFC( J)=COEF*(FNTZ+C*Ul-U2) 

QIFS( J) =C0EF*S*U1 
IF( J-NHARM-1)  1640,1650,1650 
1640  U3=C1*C-S1*S 
S =C1*S+S1*C 
C =U3 
J = J+l 
GO  TO  1610 

1650  QIFC( 1)=QIFC( 1) *. 5 

COMPUTE  HARMONIC  FLOWS  FROM  FOURIER  ANALYSIS 

1655  DO  1660  1=1, NHARM 

FQ1 1 ( I , KK ) = CMPLX(QIFS{  1 + 1)  , QIFC(I+1)) 

1660  CONTINUE 
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4.12  SECTION  11  - INLET  PRESSURE-FLOW  BALANCE  CALCULATION 

The  pump  inlet  flow  is  dynamically  balanced  as  described  for  the  outlet 
flow  in  Section  6. 

J 


! 


o n 


4.12.1 


Section  11  - Inlet  Pressure  - Flow  Balance  Calculation  - Listing 


SECTION  11-  INLET  PRESSURE- FLOW  3ALANCE  CALCULATION 

1670  CONTINUE 
I = KKN 

IF  (KK  - 2)  1680,1690,1700 

1680  CONTINUE 
W=Y*PISTNO*PI*KKN/30. 

ZO-1.0E5/WM  . 2,-1. ) 

PQ1I ( I , KK)  = FQ1I ( I , KK  ) * Z 0* Z AP( I ) / ( Z 0 +ZAP(I))  / 5.0 
P5=CABS ( PQl I ( I , KK ) ) 

P6=LPRESS/P5 

IF( Y.NE. 5000. ) GO  TO  1681 
P7=P5*5. 0 

WRITE( 6,1632)  P7,QIFC(1) 

1682  FORi-lAT(  10X,  2(  F10. 4 ) ,//) 

1681  P3=PQ1I ( I , KK) 

GO  TO  1720 

1690  CONTINUE 

Z0  = PQl I ( I , KK-1)  /(FQ1I(I,KK-1)-FQ1I( I,KK) ) 

PQ1I ( I , KK ) = FQ1I ( I , KK-1 )*ZQ*ZAP(I)/(Z0  +ZAP(I)} 
P5=CABS( PQ1I ( I , KK) ) 

P6=LPRESS/P5 

IF( Y.NC. 5000. ) GO  TO  1691 
WRITE( 6, 1682)  P5,QIFC(1) 

1691  P3=PQ1I(I,KK)-PQ1I(I,KK-1) 

PQ1I ( I , KK+1 ) = PQ1I ( I , KK ) - PQ1I ( I , KK-1 ) 

PPP(I)  = ATAN2(  AI."1AG(  PQ1I  ( I , KK+1 ) ) , REAL(  PQ1I  ( I , KK  + 1 ) ) ) 
GO  TO  1720 
1700  CONTINUE 
J=KKN 

PQ1I ( J , KK)  = ZAP(J)  * FQ1 I ( J , KK ) 

P5=CABS( PQ1I ( J, KK) ) 

P6=LPRESS/P5 

1713  IF( Y.NE. 5000. ) GO  TO  1715 
WRITE( 6, 1682)  P5,QIFC(1) 

1715  ETA( J) =CABS ( 100* ( PQ1I ( J , KK) -PQ1I ( J , KK-1) )/PQlI( J,KK) ) 
KKN  = KKN  + 1 

I F ( KKN. GT. CHARM)  GO  TO  340 
KK  = 1 

FQ1I ( KKN , 1 ) = FQ1I( KKN, 3) 

GO  TO  1670 
1720  CONTINUE 
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4.13  SECTION  12  - RECONSTRUCTION  OF  TIME  DEPENDENT  INLET  PRESSURE 

Pump  inlet  dynamic  pressures  are  reconstructed  as  described  for  the 
outlet  pressure  in  Section  7,  except  that  the  minimum  inlet  pressure  is  limited 
to  .01  PSI.  Balanced  inlet  flow  and  pressure  are  stored  for  return  to 
the  main  program. 


n n 


4.13.1  Section  12  - Reconstruction  of  Time  Dependent  Inlet  Pressure  - Listing 


SECTION  12-  RECONSTRUCTION  OF  TI^E  DEPENDENT  INLET  PRESSURE 

DO  1730  J=1 , 81 
THETA=  (J-1)*I*0. 07354 

PPI(J)  =PPI(J)  + REAL(  P3)  * SIN  (THETA)  +AI<‘iAG(  P3 ) * COS  (THETA) 
IF ( PPI ( J ) .LT.-LPRESS)  PPI ( J ) =-LPRESS 
1730  CONTINUE 

KK  = KK  + 1 
GO  TO  1100 
340  CONTINUE 

Q(  NINLT)  =FQ1I  ( NHARll,  3 ) 

P(  NINLT)  =PQ1I  ( NHARi'l , 3 ) 

350  CONTINUE 
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4.14  SECTION  13  -..TORQUE  CALCULATION 


This  section  calculates  the  average  torque  acting  on  the  swashplate. 
These  include  torques  due  to  spring  force,  piston  mass  acceleration  forces, 
and  piston  pressure  forces.  Certain  pump  variables  are  pre-defined  for  out- 
put plotting,  if  desired.  These  include  swashangle,  pre-compression  mis- 
match, piston  pressure  at  the  start  of  de-compression,  cavitation  volume, 
de-compression  mismatch,  piston  pressure  at  the  start  of  pre-compression, 
actuator  pressure  due  to  spring  force,  and  total  actuator  pressure. 

4.14.1  Math  Model  - The  lever  arm  (ACTLEV)  of  the  swashplate  actuator  is 
estimated  based  on  actual  pump  geometry  as  a linear  function  of  swashangle. 

ACTLEV  = ACTLEVO  + ASWASH*1.428  (34) 

The  swashangle  is  inversely  proportion  to  pump  speed  for  constant  flow.  This 
must  be  changed  to  suit  the  particular  pump  being  modeled,  since  it  is  not 
derived  from  input  data. 


The  swashplate  torque  due  to  piston  acceleration  is  the  sum  of  torques 
due  to  inertial  forces  in  the  variable  and  steady  state  motion  planes: 


TORQAC  = Tv  + TRQACR 

(35) 

where  Tv  = Fv  * T0RQ1 

(36) 

Tv  = M * a * T0RQ1 

(37) 

Tv  = PIMASS  * a * T0RQ1 . 

(38) 

The  piston  force  moment  arm  at  each  increment  of  piston  position 

(shaft 

rotation  angle)  is 

T0RQ1  = RBORC*Cos(AT)  + HOFF 

(39) 

For  simple  harmonic 

motion,  piston  acceleration  is 

a = DY  * w2  * Cos(AT) . 

(40) 

f 

* 


f 

a 
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Piston  motion  maximum  amplitude  is 

DY  = (RBORC  + HOFF)  (DISAM  - DISACT) /ACTLEV  (41) 

for  shaft  rotation  angles  from 

[ 3tt/2  - SIN_1  (HOFF/RBORC)  ] to  [tt/2  + SIN_1  (HOFF/RBORC)  ] 
and  DY  = (RBORC  - HOFF)  (DISAM  - DISACT) /ACTLEV 
for  shaft  rotation  angles  from 

[tt/2  + SIN-1  (HOFF/RBORC)]  to  [3tt/2  - SIN_1  (HOFF/RBORC)], 
where  (DISAM  - DISACT) /ACTLEV  = TAN(ASWASH). 

The  shaft  rotation  frequency  (W)  as  a function  of  pumping  frequency  is 

w = Ytt/30.  or  (42) 

w = W/PISTNO 

Inertial  piston  torque  due  to  the  steady  state  swashplate  angle  is 

TRQACR  = PIMASS  * Ac  * T0RQ1 
2 

where  A = w * SSA  * SIN(AT) 
c 

Therefore, 

TRQACR  = -w2  * SSA  * SIN(AT)  * PIMASS  * T0RQ1 . (43) 

Substituting  (41)  and  (42)  into  (40),  and  then  into  (38)  gives 
Tv  = ( (Y*tt/30.)**2*(RBORC  + HOFF)*(DISAM  - DISACT) 

*C0S(AT) /ACTLEV) *PIMASS*T0RQ1  (44) 

Substituting  (43)  and  (44)  into  (35)  yields  the  total  piston  acceleration 
torque  on  the  swashplate  at  any  piston  position. 

Swashplate  torque  due  to  piston  pressure  is 
TORQPR  = PISPR(NKM)  * PIA  * T0RQ1 . 

Total  swashplate  torque  due  to  piston  pressure  and  acceleration  is  then 
TORQ  = TORQAC  + TORQPR 

' The  torque  at  each  increment  of  shaft  angle  is  then  summed,  divided  by 
the  number  of  calculation  points,  and  multiplied  by  the  number  of  pistons 
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to  obtain  total  average  torque  (TORTAV); 

TORQSU  = TORQSU  + TORQ 
TORTAV  = TORQSU/ ND9  * PISTNO 

4.14.2  Assumptions  - Swashplate  actuator  lower  arm  is  assumed  to  vary 
linearly  with  swashangle. 

4.14.3  Computation  Method  - Not  applicable. 

4.14.4  Approximations  - None . 

4.14.5  Limitations  - Unknown. 

4.14.6  Variable  Names  - See  4.1.6. 


4.14.7 


Section  13  - Torque  Calculations  - Listing 


C SECTION  13  - TORQUE  CALCULATION 

C 

ACT LEV=ACTLEVO+ ASWASH* 1.423 

TRQACS=0 . 0 

TORQSU=0 . 0 

TORQPS=0. 0 

TORQAS  = 0 . 0 

ATOFF=ASIN( HOFF/RBORC) 

ATPR=0 . 5*PI+ATOFF 
ATSU= 1 . 5*  PI-ATOF  F 
DISACT=DISAN-ACTLEV*TAN  ( ASWASH ) 

DO  1310  M=1 , NOPIST 
DO  1320  N = 1 , 8 0 
NK.-1=NSUCL+N+(N-1)  *80 
I F ( NKM . GE . ND9+1 ) NKN=NKN-ND9 
AT=  ( NK.-l-l ) *AINC/ 57.3 
TORQl=RBORC*COS ( AT ) +HOFF 
TORQPR=PISPR  ( NKrl ) * PI  A*TORQl 

TRQACR=-  ( ( Y*  PI/30 . ) **2*3SA*5IN(  AT)  *PI.1ASS*T0RQ1 ) 
IF( AT. GE . ATS U. OR. AT. L£. ATPR ) GO  TO  1830 
TORQAC= ( ( Y*PI/30. ) * * 2* ( RBORC-HOF F ) * ( DIS AN-DISACT ) * 
+COS  ( AT)  /ACTLEV)  * PINASS*TORQl+TRQACR 
GO  TO  1360 

13  30  TORQAC=  ( ( W/PISTNO)  **2*  ( RBORC+HOFF)  * ( DISAii-DISACT)  * 
+COS  ( AT)  / ACTLEV)  * PlNASS*TORQl+TRQACR 
1860  TORQ=TORQPR+TORQAC 
TORQSU=TORQSU+TORQ 
TORQPS=TORQPS+TORQPR 
TORQAS=TORQAS+TORQAC 
TRQACS=TRQACS+TRQACR 
C IF( Y.EQ. 5000. ) GO  TO  1340 

C GO  TO  1820 

C1840  CONTINUE 
1820  CONTINUE 
1310  CONTINUE 

TORTAV=TORQSU/ND9*  PISTNO 
TORPAV=TORQPS/ND9*  PISTNO 
TORAAV=TORQAS/ND9*  PISTNO 
TRACA V=TRQACS/N  D9*  PISTNO 

W R I T E ( 6,1390)  TORPAV, TRACAV , TORAAV , TORTAV, Y 
1890  FORriAT(  27X , FI  2 . 2 , FI  2. 6 , 2 ( FI 2 . 2 ) , FI  0 . 0 , //) 

1870  CONTINUE 

1880  Q(  37)=CMPLX(  ASVvAST  ,0.0) 

Q(  38  ) =Ci'lPLX(  (PISPR(NPRSOP)-H  PRESS)  ,0.0) 

Q( 39)=CNPLX( PISPR(NPRCL) ,0.0) 

Q(  4 0 ) =Ci>lPLX(  CAVOLD*  1000 . ,0.0) 

P( 37)=CNPLX( ( PISPR(NSUSOP)-LPRESS) ,0.0) 

P(  39  ) =Ci>iPLX  ( PISPR(NSUCL)  ,0.0) 

PSPG= ( 1 50. -ASWASH*  4 00 . ) /ARACT 
PACTU=TORTA V/ACTLEV/ARACT+PSPG+CPRESS 
P( 38 ) =CMPLX( PSPG , 0 . 0 ) 

P( 40 ) =CMPLX ( PACTU ,0.0) 

1900  CONTINUE 
RETURN 
END 
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5.0  LINE  SUBROUTINE 


5.1  Introduction 

Subroutine  LINE  computes  the  element  values  of  a 2 x 2 matrix  which 
represents  the  complex  relationship  between  input  and  output  flow  and  pressure. 
Both  rigid  line  (tubing)  and  hose  elements  are  modeled  in  LINE. 

Specification  statements  are  followed  by  initialization  of  variables  from 
main  program  input  data,  including  computation  of  the  line  or  hose  element 
internal  radius  from  input  outside  diameter  and  wall  thickness.  A frequency 
dependent  friction  damping  factor  (BETA)  is  then  computed.  The  velocity  of 
sound  is  then  computed  depending  on  whether  the  circuit  element  is  a rigid 
tube  (KTYPE  = 0)  or  a hose  (KTYPE  = 1).  Element  characteristic  impedance 
is  computed,  and  then  used  to  compute  the  four  matrix  element  values  which 
are  returned  to  the  main  program. 

5.2  Math  Model 

The  LINE  math  model  is  represented  by  the  following  equation  in  matrix 


form. 

Q(n  + 1)  ' 
P(n  + 1)  - 


Where:  (n)is  the  line  element  input 

(n  + l)is  the  line  element  output 
BETA  * Frequency  Dependent  Friction  Damping  Factor 


C = Corrected  Velocity  of  Sound  Through  Fluid 


j 


(2) 


(3) 


c 


M RHO 


Hose 


(4) 


Equation  (1)  is  from  Reference  (3),  which  is  reprinted  in  Appendix  A of 
this  report.  Use  of  the  friction  factor  BETA  is  suggested  by  References  (3) 
and  (4) . In  early  model  development,  BETA  was  evaluated  from  a tabulation 
based  on  previously  calculated  Thompson  functions.  However,  it  was  found 
that  the  approximation  for  BETA  per  equation  (2)  saved  computation  time, 
with  an  error  of  less  than  one  percent  over  the  frequency  range  of  interest. 

Equation  (3)  takes  into  account  the  elastic  modulus  of  the  line  material 
and  the  method  of  support  by  modifying  the  speed  of  sound  through  the  fluid 
as  suggested  in  Reference  (5).  Equation  (4)  calculates  the  velocity  of 


sound  in  a hose  using  experimental  data  centered  about  the  steady  state  operating 
pressure  for  an  equivalent  bulk  modulus  of  elasticity  (E) , which  includes  both 
hose  material  and  fluid  elasticity  per  Equation  (5)  below. 


E = <Pressure  Change)  x (Total  Hose  Volume) 
(Volume  Change) 


(5) 


In  the  absence  of  good  experimental  data,  damping  losses  due  to  the  hysteresis 
in  the  hose  wall  expansion  and  contraction  are  not  included. 

5 . 3 Assumptions 

Basic  assumptions  relating  to  equation  (1)  and  (2)  are  covered  in 
Reference  (3).  Frequency  dependent  friction  is  based  on  laminar  flow.  The 
dynamic  friction  model  may  be  inaccurate  for  steady  state  turbulent  conditions. 
Reference  (9)  suggests  that  steady  state  turbulence  does  have  an  effect  on 
laminar  viscous  conditions  at  a tube  or  hose  wall.  Fortunately,  most  of  the 
frequency  analysis  of  an  aircraft  central  hydraulic  system  is  conducted  for 
steady  state  system  flow  which  is  laminar  in  the  large  central  system  lines. 

Line  mounting  factors  vary  from  1.7  to  1.9  per  Reference  (5)  for  lines 


with  an  expansion  joint  between  anchors  to  one  anchored  at  one  end  only.  Equation 
(3)  assumes  a mounting  factor  of  1.8. 


5.4  Computation  Method  - Not  applicable 


5.7  Variable  Names 


Variable  names  unique  to  the  LINE  subroutine  and/or  math  model 
below.  Common  variables  are  described  in  paragraph  3. 1.6.1. 


SYMBOL 

A 

AREA 

Cl 

C2 

C 

E 

G1 

G2 

j 

jw 

K 

R 

XL 

Y1 

Y 

Z5 


DESCRIPTION 
Line  wall  thickness 

Line  or  hose  internal  cross-sectional  area 
Temporary  variable 
Temporary  variable 
Speed  of  sound  in  fluid 

Line  material  modulus  of  elasticity  or  hose 
bulk  modulus  of  elasticity 

Complex  cosine  term  in  matrix 

Complex  sin  term  in  matrix 

Laplace  operator 
Line  mounting  factor  = 1.8 
Line  internal  radius 
Line  length 

Trig  function  argument  (real) 

Trig  function  argument  (complex) 
Characteristic  impedance 
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are  listed 

UNITS 

IN 

IN**2 

IN/ SEC 
PSI 


IN 

IN 


noo  non  nnn  ono  onn  ooooooo  noon 


5.8  LINE  Subroutine  - Listin; 


SUBROUTINE  LINE 

* REVISED  MARCH  3,  1 97  5 * 

* VARIABL  E TYPES,  DIMENSIONS,  AND  COMMONALITY* 

COMMON  BETA,  G,  P, Q, Z,  XB  C,  B ER  , B F.I , B ERP  , B El  P , RHO  , BULK  , VOL  ,W  , VI  SC  , PAR 

1 M , P I , I EL  , N EL  , KT  Y P E ( 4 0 ) 

COMPLEX  RETA,C,P,Q,Z,Y1,Y,G1,G2,Z5 
DIMENS  ION  G (2, 2, 40) , PARM(8, 40) , P(40) , Q( 40) , Z (4  0) 

*S0LUTI0N  METHOD* 

*INITIALIZE  VARIABLES  FROM  INPUT  DATA  ARRAY* 

LINE  OR  UOS  E I.  ENCTH 
XL  = PARM( 1 , I EL) 

LINE  WALL  THICKN  ESS  (A=0. 0 FOR  HOSE) 

A = PARM ( 3, I EL) 

LINE  OR  HOSE  INTERNAL  RADIUS 
R = PARM ( 2 , I EL) / 2. 0 - A 

LINE  MATERIAL  MODULUS  OR  HOSE  BULK  MODULUS  OF  ELASTICITY 


t 


f 

i i 

L 


E«  PARM  ( 4 , I EL) 

*FR  F.QU  F.NCY  DEPENDENT  FRICTION  DAMPING  FACTOR* 

200  XRE-SQRT(VISC/ (2. 0*1J)  )/R 

B ETA=  4 . 0*XB  E**2-XB  E+(0. 0,  1 . 0 ) * (X3  E- 1 . 0) 

*T  EST  FOR  NOSE  ELEMENT* 

IF (KTYPE(I EL) . EQ. 1 )GO  TO  300 
C 

C * V ELOC I TY  OF  SOUND  IN  LINE* 

C 

AR  EA=PI*R**2 
PARM  (6,  I EL  ) =AR  EA 
C1=1.8*(R)  * B U L K 

C 2-BULK/ (RUO* ( 1 . +C 1 / ( A*  E) ) ) 

C = S !)  R T ( C 2 ) 

PARM ( 5 , I EL)«C 
GO  TO  400 
C 
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5.8  LINE  Subroutine  - Listing  (Continued) 

C * V ELOC I T Y OF  SOUND  IN  HOSE* 

C 

300  C“SQRT  ( E/RIIO) 

PAR'K  5,  I EL  ) =*C 
C 

(’.  *C  \ LCULAT  F.  FLOW  & PRESSURE  TRANSFER  FUNCTION  MATRIX  ELEMENTS* 
C 

4 00  Y 1 =U  * B ETA*  XL  / C. 

Y = Y 1* (0.  , 1 . ) 

Z5-B  F.T  A * R HO  *C  / (PI*R*R) 

Gl=CCOS(Y) 

G2«CSIN(Y) 

G(  1 , 1 , I EL)-C.  l 

G(  I , 2,  I F,L)«-(  1 . /X5)*G2 

G ( 2 , 1,1  EL ) = X 5 *G  2 

G ( 2, 2,  I F.D-C  1 

R ET  U R N 

Eli  D 


6 . 0  COMPONENT  SUBROUT INE  S 


6.1  VOLUME  SUBROUTINE 

Subroutine  VOLUME  computes  the  element  values  of  a 2 x 2 matrix  which 


represents  the  complex  relationship  between  input  and  output  flow  and  pressure 
across  a lumped  volume  element  in  the  main  circuit.  Lumped  volume  elements 
are  treated  as  pure  capacitive  elements,  with  no  dynamic  inlet  and  outlet 
losses . 

Specification  statements  are  followed  by  initialization  of  the  element 
volume  from  input  data.  Volume  impedance  (ZV)  is  then  computed  and  used  in 
assigning  the  matrix  values,  which  are  returned  to  the  main  program.  A test 
is  included  to  prevent  an  indefinite  value  for  G (1,2)  should  the  input  volume 
be  zero. 


6.1.1  Math  Model  - Lumped  volumes  are  treated  as  capacitive  elements  with  no 
dynamic  inlet  and  outlet  losses. 


Qn  Qn  + 1 


Pn  Qn  + 1 


Main  Line 


Volume  Impedance (ZV) 


Volume  of  Element  (VOL) 


Flow  and  pressure  across  the  volume  element  are  related  by: 


Qn  * ^ = Q n + 1 
Pn  = P n + 1 


Impedance  for  a capacitance  is: 


Qn  + 1 


Pn  + 1 


j x W x VOL 
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6.1.2  Assumptions  - The  effect  on  the  predicted  resonant  frequency  of  ignoring 
the  inlet  and  outlet  losses  are  minimized  by  modeling  the  inlet  and  outlet 
lengths  as  lines  up  to  the  volume  cavity.  The  resonant  pump  speeds  predicted 
have  agreed  well  with  those  measured  on  a test  stand  and  the  F-15  iron  bird, 
over  a wide  range  of  system  temperatures. 

6.1.3  Computation  Method  - Not  applicable. 

6.1. A Approximations  - See  6.1.2  above. 

6.1.5  Limitations  - None. 

6.1.6  Variable  Names  - Variable  names  unique  to  the  VOLUME  subroutine  and/or 
math  model  are  listed  below.  Common  variables  are  described  in  paragraph 


3. 1.6.1. 
SYMBOL 

DESCRIPTION 

UNITS 

J 

— 

VOL 

Volume  of  element 

IN*  *3 

ZV1 

Temporary  variable 

— 

ZV2 

Temporary  variable 

— 

ZV 

Volume  impedance 

PSI/CIS 

6.1.7  VOLUME  Subroutine  - Listini 


&• 

I 


l 


SUBROUTINE  VOLUME 
C 

C****  REVISED  SEPTEMBER  3,1974  **** 

C 

C ‘VARIABL  E T Y P ES , D IM ENS I OH S , AND  COMMONALITY* 

C 

COMPLEX  BETA,G,P,Q,Z,ZV2,ZV 

COMMON  B ETA.G, P,Q,Z,  XB E, B ER , B El , B ER P , B El P , R HO , BULK , VOL , W , VI  SC , PAR 
I'l,  PI,  I EL,  N EL,  KTYPE(40) 

DIMENSION  C (2, 2, 40), PA RM (8, 40) , P ( 4 0 ) , Q ( 4 0 ) ,Z (40) 

C 

C.  *SOLUT  ION  METHOD* 

C 

C INITIALIZE  VOLUME  FROM  INPUT  DATA  ARRAY* 

C 

VOL  = PARM ( 1 , I EL) 

C 

C ‘CALCULATE  VOLUME  IMPEDANCE* 

C 

Z V I =W  * VO  L 
ZV2=CMPLX( 0. ,ZV1) 

ZV*BULK/ZV2 

C 

C ‘ASSIGN  MAIN  LINE  MATRIX  ELEMENT  VALUES* 

C 

G ( I , I , I EL ) = CMPLX ( 1 . , 0. ) 

G(2, 1,1 EL)=CMPLX(0. ,0. ) 

G( 2, 2, I EL ) “CMPLX ( 1. ,0. ) 

IF( VOL. EQ. 0. ) GO  TO  100 
G(1,2,IEL)=-1./ZV 
R F.TURN 

100  G( I , 2, I EL)» ( 0. , 0. ) 

R ETURN 
END 


6.2  Resonator  Subroutine  (RESNTR) 


The  RESNTR  subroutine  models  two  acoustic  devices;  a short  line/lumped 
volume  resonator,  and  a Pulsco  acoustic  filter. 

RESNTR  computes  the  element  values  of  a 2 x 2 matrix  which  represents 
the  complex  relationship  between  main  line  input  and  output  flow  across  the 
unit. 


Specification  statements  are  followed  by  initialization  of  variables  for 
the  applicable  unit  from  the  main  program  input  data.  The  appropriate  model 
is  selected  based  on  the  KTYPE  number. 

6.2.1  Lumped  Volume  Resonator  (KTYPE  0)  - The  initial  section  of  RESNTR 
describes  a lumped  volume  type  resonator  connected  to  the  main  circuit  with 

a length  of  line.  After  initialization  of  variables  RESNTR  computes  the  fre- 
quency dependent  friction  factor  (BETA),  and  the  velocity  of  sound  in  the 
resonator  line.  Input  impedance  (Z5)  at  the  main  line  junction  is  then  computed, 
and  used  to  assign  matrix  values  which  are  then  returned  to  the  main  program. 

6. 2. 1.1  Math  Model  - The  resonator  is  modeled  by  combining  two  basic  elements; 
a lumped  volume,  and  a line. 


Qn  Qn  + 1 

Pn  Pn  + 1 


Main  Line 


Line  of  Length  (XL) 


Lumped  Volume  (VOL) 


i 


j 


I 


The  resonator  is  treated  as  a line  that  is  terminated  by  the  volume  impedance 
(ZV).  Resonator  impedance  (Z5)  is  then  the  input  impedance  of  the  line.  The 
subroutine  solves  for  the  impedance  (Z5)  by  using  the  characteristic 
LINE  matrix  equation,  with  the  volume  (VOL)  as  the  terminating  impedance. 

Flow  and  pressure  across  the  line  length  (XL)  are  related  by: 


Gil  G12  Q 


G21  G22  I P 


Dividing  (2)  by  (1) 


Gil  x Q5  + G12  x P5  = QV 
G21  x Q5  + G22  x P5  = PV 


G21  x Q5  + G22  x P5  = PV 
Gil  x Q5  + G.12  x P5  QV 


Substituting  (A)  in  (3),  and  dividing  the  left  side  of  (3)  by  Q5  yields 


G21  x § + G22  x g 


Gil  x ^ + G12  x || 


= ZV 


Using  Z5  = in  (5),  and  then  solving  for  Z5  gives: 

7S  - ZV  x Gil  - G21 

* G22  + ZV  x G12 
or 

Z5  = (Z1  - Z2)/(Z3  - Z4)  . 

Matrix  element  values  in  (6)  for  the  branch  line  element  are  computed  as 
described  in  paragraph  5.1.1  of  the  LINE  subroutine.  Volume  impedance  (ZV) 


is  described  in  paragraph  6.1.1. 


i 
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6.2.1. 1  (Continued) 

Matrix  values  for  the  main  line  are  determined  as 


Q n + 1 


P n + 1 


or  Qn  - ° Q n + 1 

Pn  = P n + 1 

6. 2. 1.2  Assumptions  - Same  as  5.1.2  and  6.1.2. 

6.2. 1.3  Computation  Method  - Not  applicable. 

6.2.1. A Approximations  - None. 

6.2. 1.5  Limitations  - Entrance  angle  effects,  if  any,  are  not  included. 

6.2.2  Pulsco  Acoustic  Filter  (KTYPE  = 32)  - 


Volume  VA 


NOTE:  This  device  is  manufactured  and  marketed  by  the 

Pulsco  Division 

American  Air  Filter  Co.,  Inc. 

Louisville,  Ky. 

The  design  disclosed  herein  is  the  property  of  American  Air  Filter 
Co.,  Inc.,  Pulsco  Division. 

The  Pulsco  acoustic  filter  consists  basically  of  three  volumes  interconnected 
as  shown  by  three  lines.  For  KTYPE  32,  RESNTR  moves  to  the  section  for  the 
acoustic  filter  and  initializes  the  three  volume  values.  Volume  impedance 


values  are  then  calculated.  Line  variables  are  initialized  and  line  matrix 
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6.2.2  (Continued) 

values  are  calculated  for  all  three  lines  in  the  DO  120  loop.  Main  line  matrix 
values  are  then  calculated  and  assigned  to  the  G(~,  -)  array. 

6. 2. 2.1  Math  Model  - The  Pulsco  acoustic  filter  is  characterized  as  two 
parallel  flow  paths  between  the  end  volumes 


The  model  is  derived  by  combining  the  dynamics  of  three  basic  elements;  volumes, 
lines,  branches.  Equations  relating  the  pressure  and  flow  across  the  various 
basic  elements  are  as  follows  based  on  math  models  in  sections  3.3,  5.0,  and  6.1. 

Volume  (VA) 

QA1  - PA1/ZVA  = QA2 
but  QA2  = QD1  + QE1 
therefore 

QA1  - PA/ ZVA  = QDl  + QE1  (10) | 

where,  for  the  first  branch 

PA  = PA1  = PA2  = PD1  = PEI. 

Volume  (VB) 

QE2  - PE2/ZVB  = QF1 
and  PB  = PE2  = PF1 
therefore 

QE2  - PB/ZVB  = QF1  (11)1 
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6. 2. 2.1  (Continued) 
Volume  (VC) 

QC1  - PC/ZVC  = QC2 
but  QD2  + QF2  = QC1 
therefore 


QD2  + 

QF2  - PC/ZVC 

: = QC2 

(12) 

where  PC  = 

PF2  = PCI  = 

PC2  = PD2 

(13) 

Line  (D) 

Dll  • 

QD1  + D12  • 

PA  = QD2 

(14) 

D21  • 

QD1  + D22  • 

PA  = PC 

(15) 

Line  (E) 

Ell  • 

QEl  + E12  • 

PA  = QE2 

(16) 

E21  • 

QEl  + E22  • 

PA  = PB 

(17) 

Line  (F) 

Fll  • 

QF1  + F12  • 

PB  = QF2 

(18) 

F21  • 

QF1  + F22  • 

PB  = PC 

(19) 

First  analyzing  the  branch  path  E - VB  - F,  starting  from  (11) 

QE2  = QF1  + PB/ZVB. 

Substituting  for  QE2  in  (16)  gives 

Ell  • QE1  + E12  • PA  = QF1  + PB/ZVB. 

From  (18) 

QF1  = (QF2  - F12  • PB)/F11, 
therefore 

Ell  • QEl  + E12  • PA  = (QF2  - F12  • PB)/F11  + PB/ZVB. 

By  using  (17)  to  eliminate  PB,  it  can  be  shown  that 

A • QEl  + B • PA  = QF2  (20) 

where: 


A = Fll  • Ell  + F12  • E21  - (Fll  • E21)/ZVB 
B = Fll  • E12  + F12  • E22  - (Fll  • E22)/ZVB. 


6. 2. 2.1  (Continued) 

From  (18)  and  (19)  it  can  be  shown  that 

PB  = (Fll  • PC  - F21  • QF2)/ (Fll  • F22  - F21  • F12) . 

Substituting  this  into  (17)  for  PB,  and  (20)  into  (17)  for  QF2  yields 
C • QE1  + D • PA  = PC 
where: 

C = F22  • E21  - (F21  • F12  • E21)/F11  + (F21  • A)/F11 
D = F22  • E22  - (F21  • F12  • E22)/F11  + (F21  • B)/F11. 

The  first  branch  may  be  analyzed  by  starting  with  (10),  substituting  (15) 
for  QD1  and  eliminating  QE1  using  (21)  to  yield 
E • QA1  + F • PA  = PC 

where 

E = (D21  • C)/(C  + D21) 

F = (D22  • C + D21  • D - (D21  • C)/ZVA)/(C  + D21) . 

The  second  branch  may  be  analyzed  by  first  eliminating  QD1  from  (14)  using  (15) 
to  yield 

QD2  = (Dll  • PC)/D21  - (Dll  • D22  • PA)/D21  + D12  • PA. 

Substituting  (23)  into  (12)  to  eliminate  QD2,  (22)  to  eliminate  PC,  and  (20)  to 

eliminate  QF2  yields 

(Dll  • E • QA1)/D21  + (Dll  • F • PA)/D21  - (Dll  • D22  • PA)/D21  + D12  • PA 

+ A • QE1  + B • PA  - PC/ZVC  = QC2. 

From  (21)  and  (22) 

QE1  = E • QA1/C  + F • PA/C  - D • PA/C. 

Using  (22)  and  (25)  in  (23)  yields 
G • QA1  + H • PA  = QC2 
where: 

G = Dll  • E/D21  + A • E/C  - E/ZVC 


(21) 

(22) 

(23) 

(24) 

(25) 

(26) 


H = Dll  • F/D21  - Dll  • D22/D21  + D12  + A • F/C  - A • D/C  + B - F/ZVC 


6.2.2. 1  (Continued) 


The  dynamic  pressure  and  flow  across  the  filter  are  then  given  by  (22)  and  (26), 
which  in  the  standard  2x2  matrix  form  used  for  all  components  is 


'G  h' 

■qai' 

’QC2‘ 

.E  F. 

_PA  _ 

PC 

The  matrix  values  E,  F,  G,  H are  computed  in  the’model  as  ZE,  ZF,  ZG,  and  ZH. 
The  matrix  values  for  the  three  lines  are  computed  in  the  model  as  values  in 
the  GL  ( -)  array  for  lines  1,  2,  and  3.  For  instance,  the  "12"  matrix 

value  for  line  D (line  1)  is  GL(1,  2,  1).  Volume  impedances  are  computed  as 
derived,  i.e.  ZVA,  ZVB,  and  ZVC.  Matrix  values  for  the  acoustic  filter  (ZE, 
ZF,  ZG,  and  ZH)  are  then  assigned  to  the  G(-,  -,  IEL)  array  for  return  to 
the  main  program. 

6. 2. 2. 2 Assumptions  - Same  as  for  line  and  volume  elements. 

6. 2. 2. 3 Computation  Method  - Same  as  for  lines  and  volumes. 

6 . 2 . 2 . 4 Approximations  - Unknown . 

6 . 2 . 2 . 5 Limitations  - Unknown . 

6.2.3  Variable  Names  - Variable  names  unique  to  the  RESNTR  subroutine  and/or 
math  model  are  listed  below.  Common  variables  are  described  in  Paragraph 


3. 1.6.1. 
SYMBOL 

DESCRIPTION 

o 1 

UNITS 

A 

Wall  thickness  of  neck  line 

IN 

AR 

Internal  cross-sectional  area  of  neck  line 

IN**2 

Cl 

Temporary  variable 

— 

C2 

Temporary  variable 

— 

C 

Speed  of  sound  in  neck  fluid 

IN/ SEC 

E 

Neck  material  modulus  of  elasticity 

PSI 

EL(-) 

Material  modulus  of  elasticity  for  acoustic 

G1 

filter  line  elements 
Complex  cosine  term  in  line  matrix 

G2 


Complex  sin  term  in  line  matrix 


6.2.3  (Continued) 


SYMBOL 


DESCRIPTION 


UNITS 


GL (-,-,-) 

j 

jW 

K 

RL(-) 

R 

VA, VB,VC 

VOL 

WTH(-) 

XL 

YL(-) 

Y1 

Y 

Z1,Z2,Z3,Z4,Z5 
ZA,ZB,ZC,ZD 
ZE, ZF, ZG, ZH 
Z5 

ZVA1 , ZVA2 
ZVB1.ZVB2 
ZVC1 , ZVC2 


Matrix  values  for  acoustic  filter  line  elements 

Laplace  operator 

Line  mounting  factor  =1.8 

Internal  radius  of  acoustic  filter  lines 

Neck  internal  radius 

Volumes  in  acoustic  filter 

Volume  of  resonator  cavity 

Wall  thickness  of  acoustic  filter  lines 

Length  of  neck 

Length  of  acoustic  filter  lines 

Trig  function  argument  (real) 

Trig  function  argument  (complex) 

Temporary  variables 

Temporary  variables 

Matrix  values  for  acoustic  filter 

Resonator  input  impedance  (last) 

Temporary  variables 
Temporary  variables 
Temporary  variables 


IN 

IN 

IN**3 

IN**3 

IN 

IN 

IN 


PSI/CIS 
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6.2.4  RESNll.  Subroutine  - Lis tin 


SUBROUTINE  RESNTR 
* REVISED  JULY  4,  1976  * 

* VARIABLE  TYPES,  DIMENSIONS,  AND  COMMONALITY* 

COMMON  B ETA, C, P,Q,Z,  XBE,BER,BEI,BERP,BEIP,RHO,BULK,VOL,W,VISC,PAR 
IM.PI,  I EL , N EL , KT  Y P E ( 4 0 ) 

COMPLEX  B ETA , G , P,Q,Z,Z1,Z2,Z3,Z4,Z5,CI,G2,Y1,Y,ZVA2,ZVA,ZVB2,ZVB, 
1ZVC2,ZVC,CL,ZA,ZB,ZC,ZD,ZE,ZF,ZG,ZH 
DIMENSION  G(2,2,40), PARM ( 8, 40) , P( 40) ,Q( 40) , Z(40) ,YL( 3) , WT  H ( 3) ,RL( 3 

1) , EL(3),GL(2, 2,3) 

*T  EST  FOR  RESONATOR  TYPE* 

IF  (KTYPE(I EL) . EQ. 32)  GO  TO  110 

★SOLUTION  METHOD  - LUMPED  VOLUME  RESONATOR* 

★INITIALIZE  VARIABLES  FROM  INPUT  DATA  ARRAY* 

LENGTH  OF  NECK 

XL  = PARM ( 1,1  EL) 

INTERNAL  RADIUS  OF  NECK 

R-PARM( 2, I EL) 

WALL  THICKNESS  OF  NECK 

A=  PARM ( 3, I EL) 

NECK  MATERIAL  MODULUS  OF  ELASTICITY 
E=PARM(  4,  I EL) 

VOLUME  OF  RESONATOR  CAVITY 
VOL  = PARM ( 5, I EL) 

★FREQUENCY  DEPENDENT  FRICTION  DAMPING  FACTOR* 

XBE-SQRT(VISC/(2.0*W) )/R 

B ETA  = 4. 0*XB  E**2-XS  E+ ( 0 . 0,  1 . 0)* (XB  E- 1 . 0) 

C 

C * V ELOC ITY  OF  SOUND* 

C 


C 1- 1 . 8* (R+A ) *BULK 
C2=BULK/ (RHO*( l.+C 1/ (A*E) ) ) 


6.2.3  (Continued) 


SYMBOL 


DESCRIPTION 


UNITS 


GL(-,-,-) 

j 

jW 

K 

RL(-) 

R 

VA.VB.VC 

VOL 

WTH(-) 

XL 

YL(-) 

Y1 

Y 

Z1,Z2,Z3,Z4,Z5 
ZA, ZB, ZC , ZD 
ZE,ZF, ZG,ZH 
Z5 

ZVA1.ZVA2 

ZVB1.ZVB2 

ZVC1.ZVC2 


Matrix  values  for  acoustic  filter  line  elements 

vCI 

Laplace  operator 

Line  mounting  factor  = 1.8 

Internal  radius  of  acoustic  filter  lines 

Neck  internal  radius 

Volumes  in  acoustic  filter 

Volume  of  resonator  cavity 

Wall  thickness  of  acoustic  filter  lines 

Length  of  neck 

Length  of  acoustic  filter  lines 
Trig  function  argument  (real) 

Trig  function  argument  (complex) 

Temporary  variables 

Temporary  variables 

Matrix  values  for  acoustic  filter 

Resonator  input  impedance  (last) 

Temporary  variables 
Temporary  variables 
Temporary  variables 


IN 

IN 

IN**3 

IN**3 

IN 

IN 

IN 


PSI/CIS 
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6.2.4 


(Cont.) 


C=SQRT(C2) 

C 

C *VARIOUS  LINE  MATRIX  TERMS* 

C 

Y 1 -W  * B ET  A * XL  / C 

Y = Y1*(0.  , 1.  ) 

G 1-CCOS (Y) 

G2=CSIN(Y) 

AR=PI*R*R 

Z 5 = B ETA*RHO*C 
C 

C *SOLVE  FOR  LINE  INPUT  IMPEDANCE* 

C 

Z 1=BULK*Z5*AR*G  1 
Z2-VJ*VOL*Z5*Z5*C2*(0.  , 1.  ) 

Z3-W*VOL*Z5*AR*G1*(0.  , 1.  ) 

Z4=BULK*AR*AR*G2 
Z5=(Z1-Z2)/ (Z3+Z4) 

C 

C * A S S I GN  MAIN  LINE  MATRIX  ELEMENT  VALUES* 

C 

G ( 1 , 1 , I EL  ) = 1 . 

G(2,l,IEL)-0. 

C(2,2,IEL)-1. 

G ( 1 , 2 , I EL  ) * - 1 . / Z 5 
GO  TO  250 
110  CONTINUE 
C 

*SOLUTIOt!  METHOD  - ACOUSTIC  FILTER* 


INITIALIZE  VOLUMES  FROM  INPUT  DATA  ARRAY* 

VA=  PARM ( 1 , I EL ) 

V B - P A R M ( 2,  I EL) 

VC- PARM ( 3, I EL) 

CALCULATED  VOLUME  IMPEDANCE  VALUES* 

Z VA  I -VI  * VA 

ZVA2  = CMPLX( 0.  , ZVA  1 ) 

ZVA-BULK/ZVA2 
Z VB  1«W*VB 

ZVB  2 = CMPLX( 0.  , Z VR  1 ) 

ZVB-BULK/ZVB2 
ZVC  I-U* VC 

Z VC2-CMPLX(0.  ,Z VC  1 ) 

ZVC-BULK/ZVC 2 
C 
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6.2.4  RESNTR  Subroutine  - Listing 
SUBROUTINE  RESNTR 
* REVISER  JULY  4,  1 976  * 

‘VARIABLE  TYPES,  DIMENSIONS,  AND  COMMONALITY* 

COMMON  B ETA, G, P ,Q,Z,  XBE,BER,BEI,BERP,BEIP,RHO,BULK,VOL,W,VISC,PAR 
1M.PI,  I EL , N EL , KT  Y P E ( 4 0 ) 

COMPLEX  BETA,G,P,Q,Z,Z1,Z2,Z3,Z4,Z5,G1,G2, Yl, Y , Z VA 2 , Z VA , Z VB 2 , Z VB , 
1ZVC2,ZVC,GL,ZA,ZB,ZC,ZD,ZE,ZF,ZG,ZH 
DIMENSION  C( 2, 2, 40) , PARM( 8, 40) ,P(40),Q(40),Z(40),YL(3),WTH(3),RL(3 

1) , EL(3) ,GL(2, 2, 3) 

‘TEST  FOR  RESONATOR  TYPE* 

IF  (KTYPE(I EL) . EQ. 32)  GO  TO  110 

‘SOLUTION  METHOD  - LUMPED  VOLUME  RESONATOR* 

‘INITIALIZE  VARIABLES  FROM  INPUT  DATA  ARRAY* 

LENGTH  OF  NECK 

XL  = PARM ( 1 , I EL) 

INTERNAL  RADIUS  OF  NECK 

R = PARM  ( 2 , I EL) 

WALL  THICKNESS  OF  NECK 

A=PARM(  3,  I EL) 

NECK  MATERIAL  MODULUS  OF  ELASTICITY 
E=  PARM  ( 4 , I EL) 

VOLUME  OF  RESONATOR  CAVITY 
VOL=  PARM ( 5, I EL ) 

‘FREQUENCY  DEPENDENT  FRICTION  DAMPING  FACTOR* 

C 

XB  E-SQRT ( VI  SC/ ( 2. 0*U ) ) /R 

BETA-4. 0*XBE“2-XBE+(0. 0,  1.0)*(XBE-1.0)  ^ , 

C v~' 

C ‘VELOCITY  OF  SOUND* 

C 

C 1- 1 . 8* (R+A ) ‘BULK 
C2-BULK/ (RHO* ( l.+C 1/ ( A*  E) ) ) 
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6.2.4  (Cont.) 


> 


C = S QRT ( C 2 ) 

C 

C *VARI0US  LINE  MATRIX  TERMS* 

C 

Y1=W*BETA*XL/C 
Y = Y1*(0. , 1.  ) 

G1*CC0S(Y) 

G2-CSIN (Y) 

AR=PI*R*R 
Z 5 = B ETA*RHO*C 
C 

C * S OL V E FOR  LINE  INPUT  IMPEDANCE* 

C 

Z 1“BULK*Z  5*AR*G  1 
Z2-M*V0L*Z5*Z5*G2*(0.  , 1.) 

Z 3='.J  * VO  L*Z5*AR*G  1*  (0.  , 1.  ) 

Z4=BULK*AR*AR*G2 
Z5= (Z  I-Z2) /(Z3+Z4) 

C 

C *ASSIGN  MAIN  LINE  MATRIX  ELEMENT  VALUES* 

C 

G ( 1 , 1 , I EL  ) = 1 . 

G(2,1,IEL)  = 0. 

G(2,2,IEL)=1. 

G(1,2,IEL)=-1./Z5 
GO  TO  250 
1 10  CONTINUE 
C 

C *SOLUT  IOtJ  METHOD  - ACOUSTIC  FILTER* 

C 

C 

C *INITIALIZ  E VOLUMES  FROM  INPUT  DATA  ARRAY* 

C 

VA=  P ARM ( 1 , I EL) 

VB  = P ARM ( 2 , I EL) 

VC  = PARM (3,1  EL) 

C 

C CALCULATED  VOLUME  IMPEDANCE  VALUES* 

C 

Z VA  1 -W  * VA 

ZVA2=CMPLX(0. ,ZVA1) 

ZVA=BULK/ZVA2 
ZVB  1-W*VB 

ZVB  2 = CMPLX( 0.  , Z VB  1 ) 

ZVB=BULK/ZVB2 
ZVC  1-U*VC 

ZVC2=*CMPLX(0.  ,ZVC  1 ) 

ZVC»BULK/ZVC2 

C 
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non  nno  non  non  no 
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6. 2. A (Cont.) 


C *CALCULAT  E LIME  MATRIX  VALUES  FOR  RESONATOR  LIMES* 
C 

KK-PARM(8, I EL) 

DO  120  1-1,3 
C 

C INITIALIZE  VARIABLES  FROM  INPUT  DATA  ARRAY 

C 

C -LINE  LENGT4- 

C 

YL ( I ) - PARM ( 1 , KK  ) 

C 

-LINE  WALL  THICKNESS- 
WTH ( I ) - PARM ( 3 , KK ) 

-LINE  INTERNAL  RADI'JS- 
RL ( I ) - PARM ( 2 , KK )/2.0-WTH(I) 

-LINE  MATERIAL  MODULUS  OF  ELASTICITY- 
EL  ( I )=  PARM  ( A , KK  ) 

FREQUENCY  DEPENDENT  FRICTION  DAMPING  FACTOR 

XBE=SQRT(VISC/(2.0*W) ) / RL ( I ) 

B ETA- A. 0*XB E**2-XB  E+(0.0,1.0)*(XBE-1.0) 

VELOCITY  OF  SOUND  IN  LINE 

C 1-1. 8*(RL (I )+WTH (I ) ) *BULK 
C2-BULK/ (RHO* ( 1 . +C 1/ (WTH(I ) * EL (I ) ) ) ) 

C-SQRT (C2) 

C 

C CALCULATE  LINE  MATRIX  TERMS 
C 

Y1-W*B  ETA*YL(I ) /C 
Y-Y1*(0. , 1. ) 

Z5-BETA*RHO*C/(Pl*RL(I)*RL(I)) 

Gl-CCOS(Y) 

C2-CSIN(Y) 

GL( 1,  1 , I ) - G 1 
CL(1,2,I)--(1./Z5)*G2 
GL( 2,  1 , I ) =Z  5 *G  2 
GL ( 2 , 2 , I ) «G 1 
KK-KK+1 
120  CONTINUE 
C 
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no  no 


6.2.4  (Cont.) 

‘CALCULATE  G MATRIX  VALUES  FOR  MAIN  PROGRAM* 

ZA-GL(1, 1, 3)*GL( 1 , 1, 2)+GL( 1 , 2, 3)*GL(2, 1 , 2)-GL( 1 , 1 , 3 ) *GL ( 2 , 1 , 2 ) /Z VB 
ZB-GL(  1, 1 , 3)*GL( 1 , 2,2)+GL(  1 , 2 , 3 ) *G L ( 2 , 2 , 2 ) -CL ( 1 , 1 , 3 ) *G L ( 2 , 2 , 2 ) / Z VB 
ZC-GL(2, 2, 3) *GL(2, 1 , 2)-GL(2,  1 , 3)*GL(  1, 2, 3)*GL( 2, 1, 2)/GL( 1 , 1, 3)+GL( 
+ 2,1, 3 ) *ZA/GL ( 1 , 1, 3) 

ZD=GL(2, 2, 3)*GL(2, 2, 2)-GL(2, 1, 3)*CL( 1, 2, 3)*GL(2, 2,2)/GL(l,l,3)+CL( 

+ 2 , 1 , 3) *ZB/GL( 1 ,1,3) 

Z E=GL ( 2 , 1,1) *ZC/ (ZC+GL( 2,  1,1)) 

ZF-(GL(2, 2, 1 )*ZC+GL(2,  1, 1 )*ZD-GL(2,  1 , 1 ) *ZC/Z VA ) / ( ZC+GL ( 2 , 1 , 1 ) ) 
ZG=GL ( 1 , 1, 1)*ZE/CL(2, 1 , 1 ) +Z A*Z E/Z C -Z E/ Z VC 

ZH-GL( 1 , 1 , 1 )*ZF/CL(2, 1 , 1)-GL(  1,1,  1)*GL(2, 2,  1)  /GL(2,  1,  1)+GL(  1,2,1)  + 

+ZA*ZF/ZC-ZA*ZD /ZC+Z  B-Z  F / Z VC 

‘ASSIGN  MATRIX  ELEMENT  VALUES* 

G( 1 , 1 , I EL)-ZG 
G ( 1 , 2, I EL)-ZH 
G(2,  1,1  EL)  = ZE 
G ( 2 , 2 , I EL  ) =*  Z F 
250  CONTINUE 
RETURN 
EMI) 
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6.3  VALVE  SUBROUTINE 

Subroutine  VALVE  defines  the  element  values  of  a 2x2  matrix  which 
represents  the  complex  relationship  between  input  and  output  flow  and 
pressure  across  a valve  element  in  the  circuit. 

Specification  statements  are  followed  by  initialization  of  valve 
impedance  (K)  from  input  data.  Matrix  values  are  then  assigned  using 
the  valve  impedance. 

6.3.1  Math  Model 


Subroutine  VALVE  uses  a linearized  impedance  (Z)  of  the  valve  at 
the  steady-state  flow  condition;  no  dynamic  effects  are  included. 

Qn  Qn  + 1 

Pn  IJn  + 1 


-Valve  metering  element 


Flow  and  pressure  across  the  valve  are  related  by 


0 Qn 


Qn  = Qn+1 
-KQn  + Pn  = Pn+1 

Valve  impedance  (K)  is  taken  from  the  pressure-flow  characteristic 
by  using  the  tangential  slope  for  the  estimated  steady  state  flow  rate 


through  the  valve. 


p « cq 


//  dp  . K 
/a-  3(T  - K 


Steady  State 
Point 


6-16 


i 


For  a valve  pressure/flow  relationship  of  the  form 


P = CQ 


where:  P = pressure  drop  (psi) 

Q = flow  rate  (cis) 

C = constant 
n = flow  exponent 


the  linearized  valve  impedance  (K)  is  determined  as 

„ dP  „,_n-l 
K dQ  “ nCQ  * 


c 

Qn 


therefore 


If  valve  flow  can  be  characterized  as  an  orifice  (n  = 2),  then  the 
2P 

impedance  is  K = /^.  The  orifice  relationship  is  typical  of  electrohydraulic 

servo  valve  steady  state  control  flow.  If  valve  flow  can  be  characterized  as 
laminar  for  the  steady  state  condition,  then  n = 1 and  the  impedance  is  K = 

P 

/q.  The  laminar  relationship  is  typical  for  null  leakage  flow  across 
lapped  spool  valves,  e.g.  mechanical  servovalves,  and  second  stages  of 
electrohydraulic  valves. 

Parallel  valve  elements,  for  instance  those  within  an  electro-mechanical 
integrated  servoactuator , may  be  combined  for  modeling  as  a single  valve  element 
by  computing  an  equivalent  impedance  ( K g)  for  all  the  parallel  flow  paths. 

I.i+I+I  (5) 

Ke  h K2  K3  • ' ' 

6.3.2  Assumptions  - Valve  impedance  as  described  above,  is  assumed  to 
correctly  define  the  reflection  and  transmission  of  the  acoustical  signals 
at  the  valve. 


6.3.3  Computation  Method  - Not  applicable. 
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6.3.4  Approximations  - None 


6.3.5  Limitations  - Empirical  pressure-flow  data,  if  available,  is 

used  to  calculate  the  impedance  at  the  estimated  steady  state  flow  condition. 
If  data  is  not  available  on  the  modeled  valve,  it  may  be  necessary  to  use 
data  on  a similar  valve.  Inlet  and  outlet  passages  should  be  modeled  as  close 
to  the  actual  valve  metering  element  as  possible,  so  as  to  avoid  errors 
in  length  and  hence  in  the  resonant  frequency  predictions. 

6.3.6  Variable  Names  - Variable  names  unique  to  the  VALVE  subroutine 
and/or  math  model  are  listed  below.  Common  variables  are  described  in 
paragraph  3. 1.6.1. 

SYMBOL  DESCRIPTION  UNITS 


K 


Valve  linearized  impedance 


PSI/CIS 


! 


6.3.7  VALVE  Subroutine  - Listing 

SUBROUTINE  VALVE 
C 

C****  REVISED  SEPTEMBER  3,1  074  **** 

C 

C *VARIABLE  TYPES,  DIMENSIONS,  AND  COMMONALITY* 

C 

COMPLEX  3 ETA , C , P , Q , Z 
REAL  K. 

COMMON  B ETA.G, P, Q,Z,  XB  E, B EE, 5 El , BERP, B El P , RHO , BULK, VOL , W , VI  SC, PAR 
1M  , PI  , I EL  , N EL  , KT  Y P E ( 4 0 ) 

DIMENSION  G ( 2, 2, 40) , PARM( 8, 40) , P( 40) , Q( 40) , Z ( 40) 

C 

C *SOLUT ION  METHOD* 

C 

C *INITIALIZE  VALVE  IMPEDANCE  FROM  INPUT  DATA  ARRAY* 

C 

K=PARM( I , I EL) 

C 

C * A S S I G N TRANSFER  MATRIX  ELEMENT  VALUES* 

C 

C( 1, 1 , I EL)=CMPLX( 1. ,0. ) 

G( 1 , 2, I EL)=CMPLX( 0. , 0. ) 

G ( 2 , 1 , I EL)=CMPLX(-K, 0. ) 

G ( 2,  2,  I EL  ) = C M P L X ( I.  , 0.  ) 

R ETURN 
END 


i 
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6.4  ACCUMULATOR  SUBROUTINE  (ACCUM) 

Subroutine  ACCUM  computes  the  element  values  for  a 2x2  matrix 
which  represents  the  complex  relationship  between  input  and  output  pressure 
and  flow,  for  an  impedance  looking  into  an  attached  accumulator.  ACCUM 
models  a piston-type  accumulator  as  three  series  elements;  line,  piston, 
and  gas  volume.  Piston  dynamics  and  seal  friction  are  included  in  the  model. 

Specification  statements  are  followed  by  initialization  of  variables 
from  input  data.  ACCUM  then  computes  the  frequency  dependent  friction  factor, 
velocity  of  sound  in  oil,  piston  area,  gas  volume,  and  piston  position. 

A test  for  piston  bottoming  on  the  gas  side  is  included  to  limit  the  computed 
gas  volume.  Dynamic  input  impedance  of  the  accumulator  is  computed,  and 
used  in  computing  matrix  element  G(l,2).  Matrix  element  G(l,2)  is  given 
different  values  if  the  piston  is  bottomed  at  either  end  of  the  stroke. 

6.4.1  Math  Model 

ACCUM  models  a piston-type  accumulator  as  a line,  a piston  with 
mass  and  friction,  and  a gas  volume  as  three  series  elements. 


Qn 

P„ 


Qn  + 1 

Pn  + 1 


Accumulator  input 
impedance  (ZA) 


Impedance  (ZP) 
looking  into  piston 


Gas  volume  (V2) 


Main  line 


L Oil  column  length  (XL) 


Piston  seal 

Accumulator  (excludes  line 
connections) 


Minimum  gas  volume  (V3) 
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I 

k 

I 

< 


•.  ) 

; 


Representing  the  oil  column  as  a line  element,  and  using  equation  (6) 
derived  in  paragraph  6.2.1  for  a resonator,  the  accumulator  input  impedance 
may  be  written  as 


ZP  x Gil  - G21 
G22  + ZP  x G12 


(1) 


where 


Gil  = cos (Y) 

on  - 


G22  = G1 
G2 


G21  = ZC  x sin(Y) 


Y = j x W x BETA  x XL/C 
ZC  = BETA  x RHO  x C/AREA  . 


The  termination  impedance  (ZP)  of  the  line,  looking  into  the  piston,  is 
the  summation  of  piston  friction  and  inductive  (mass)  effects,  and  the  gas 
volume  capacitive  effect  such  that 


(2) 


Piston  friction  constitutes  a steady  state  effect  and  may  be  represented 
in  units  of  impedance  as 

ZR  = ^2  (PSI/CIS)  . (3) 

A 

Piston  mass  produces  an  inductive  dynamic  effect,  and  may  be  represented 
as  the  complex  quantity 

J X ^ X—  (PSI/CIS)  . (4) 


The  gas  volume  produces  a capacitive  dynamic  effect  represented  by  the 
complex  quantity 


1.4  x PM 
j x W x V2 


(PSI/CIS) 


(5) 
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where  (1.4  x PW)  is  the  adiabatic  bulk  modulus  for  gaseous  nitrogen 
(Reference  6) . 

Equations  ( 1 ) - ( 5 ) form  the  basic  quantities  in  the  ACCUM  listing 
for  solving  the  dynamic  impedance  of  the  piston-type  accumulator. 

Matrix  elements  for  the  main  line  are  assigned  in  accordance  with 
the  equation 


or 


— 

- 1 

_ 

1 

’ ZA 

X 

Qn 

= 

Qn+1 

0 

, 1_ 

Pn 

Pn+l 

Qn  - 


Pn 

ZA 


Qn+1 


(6) 


(7) 


Pn  = Pn+1 


(8) 


t 


W 


If  the  piston  is  bottomed  on  the  gas  side  (V2  = V3) , the  line  (XL) 
is  then  a terminated  element  and  equation  (1)  becomes 


ZA 


ZA  = 


Gil 

G12 

cos(Y)  x ZC 
sin (Y) 

G1  x ZC 
G2 


(9) 


Equation  ( 9 ) is  used  instead  of  (1)  to  calculate  the  G(1,2,IEL)  matrix 
element  for  this  special  case. 

If  the  piston  is  bottomed  on  the  oil  side  (PR > PW) , the  accumulator 
is  essentially  eliminated  from  the  circuit  by  making  the  G(1,2,IEL)  element 
equal  to  zero. 

6.4.2  Assumptions  - Gaseous  nitrogen  is  assumed  to  be  the  pressurizing 
agent  in  the  accumulator.  An  adiabatic  expansion  exponent  of  1.4  is  assumed 
for  nitrogen. 
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6.4.3 


Computation  Method  - Not  applicable. 


6.4.4  Approximations  - The  piston  friction  damping  coefficient  (B)  must  be 
determined  experimentally.  An  estimated  value  of  0.1  is  suggested. 

6.4.5  Limitations  - ACCUM  is  currently  restricted  to  modeling  a piston-type 
accumulator.  Bladder-type  accumulators  will  be  incorporated  in  the  model 

at  a later  date. 

6.4.6  Variable  Names  - Variable  names  unique  to  the  ACCUM  subroutine 
and/or  math  model  are  listed  below.  Common  variables  are  discussed  in 
paragraph  3. 1.6.1. 


SYMBOL 

A 

AREA 

B 

C 

Cl 

C2 

E 

G1 

G2 

KK 

M 

PR 

PW 

R 


DESCRIPTION 

Input  data  accumulator  wall  thickness 
Piston  area 

Input  data  piston  friction  damping 
coefficient 

Velocity  of  sound  in  oil 

Temporary  variable 

Temporary  variable 

Input  data  Young's  modulus  of  wall 
material 

Temporary  variable 
Temporary  variable 

Address  of  second  record  input  data 

Input  data  piston  mass 

Input  data  gas  precharge  pressure 

Input  data  working  pressure 

Input  data  internal  radius  of  accumulator 


UNITS 

IN 

IN**2 

LB*SEC/IN 

IN/SEC 


PSx 


LB*SEC**2/IN 

PSIA 

PSIA 

IN 


6-23 


SYMBOL 

DESCRIPTION 

UNITS 

VI 

Input  data  initial  gas  volume  at 
precharge 

IN**  3 

V2 

Actual  gas  volume  at  working  pressure 

IN**  3 

V3 

Input  data  minimum  gas  volume 

IN**  3 

XL 

Piston  position  (length  of  oil  column) 

IN 

Y 

Temporary  variable 

— 

Y1 

Temporary  variable 

— 

ZA 

Complex  impedance  of  accumulator 

PSI/CIS 

ZB 

Temporary  variable 

— 

ZC 

Characteristic  impedance  of  line  (oil 
column) 

PSI/CIS 

ZR 

Friction  impedance  (complex) 

PSI/CIS 

ZP 

Impedance  looking  into  piston  (complex) 

PSI/CIS 

I 


E 


f 

I 


['■ 


6.4.7  ACCUM  Subroutine  - Listing 
SUBROUTINE  ACCUM 


C * REVISE!!  MARC!!  3,  1 975  * 

C 

C ‘VARIABLE  TYl'ES,  DIMENSIONS,  AN!)  COMMONALITY* 


REAL  M 

COMMON  B ETA, C, P, Q, Z,  XB  E , B ER , B El , B ER P , B El P , RHO , B U LK , VO L , U , V 1 SC , PA R 


1M  , PI  , I EL  , N EL  , KT  Y P E ( 4 0 ) 

COMPLEX  B ETA,  C,  P,(J,Z,YI,Y,GI,C2,ZP,ZA,ZB,ZC 
DIMENSION  G(2, 2,40) , PARM ( 8 , 4 0 ) ,P(40) ,Q(40) ,Z(40) 


C 

C 

C 


‘SOLUTION  METHOD* 


C ‘INITIALIZE  VARIABLES  FROM  INPUT  DATA  ARRAY* 
C 

C PISTON  MASS 


C 

C 

C 


M-PARM  ( 1 , I EL) 

INTERNAL  RADIUS  OF  ACCUMULATOR 
R **  P A RM  ( 2,  I F.L  ) 

ACCUMULATOR  WALL  THICKNESS 
A*  PAR!!  ( 3,  I El.) 

WALL  MATERIAL  MODULUS  OF  ELASTICITY 
E-PARM  ( 4 , I EL  ) 

CAS  PRF.CHARGE  VOLUME 
V I = PARM  ( 5,  I El.) 

MINIMUM  GAS  VOLUME 
V3=PARM(6,  I F.L) 

GAS  PR  ECI1ARG  E PRESSURE 
PR  = PARM (7,1  EL ) 

WORKING  PRESSURE 


KK-PARM( 8, I EL) 
PW»PARM( 1 , KK) 


PISTON  FRICTION  DAMPING  COEFFICIENT 
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6.4.7  (Cont.) 

C 

B = PARK ( 2 , KK) 

C 

C * L l N E FREQUENCY  !)  EP  Kill)  ENT  FRICTION  DAMPING  FACTOR* 
C 

XB  E=SQRT(VISC/ (2. 0*lJ)  ) /R 

B ETA  = 4 . 0 *XB £* * 2 -XB  E+ ( 0 . 0 , 1 . 0 ) * ( XR  E- 1 . 0 ) 

C 

C * V ELOC I TY  OF  SOUND* 

C 

C 1=1 . 8* (R+A) *BULK 
C 2= BULK/ ( RHO* ( 1 . +C 1/ (A*E) ) ) 

C = SQRT  ( C 2 ) 

C 

C * P I S TON  AREA* 

C 

AP.  EA  = PI  *R*R 
C 

C *G A S VOLUME  AT  WORKING  PRESSURE* 

C 

Y 2 = P R * V 1 /PU 

C 

C *T  EST  FOR  BOTTOMING  ON  GAS  SIDE* 

C 

IF(V2.LT.V3)  V 2=  V 3 
C 

C * P I S T 0 N POSITION  (LENGTH  OF  OIL  COLUMN)* 

C 

XL=(V1-V2)/AREA 

C 

C * S 0 L V F.  FOR  DYNAMIC  IMPEDANCE  OF  ACCUMULATOR* 

C 

Y 1 =VI  * B ET  A * XL  / C 

Y = Y1*(0.  , 1.  ) 

ZC  = B ET  A * R H 0 * C / A R EA 
G l = CCOS ( Y ) 

G2=CSIN(Y) 

ZR  = B / (AR EA  * * 2 ) 

ZB=M*'N  / ( AR  EA**2  )-  1 . 4*PW  / ( V 2*U  ) 

ZP=ZR+ZB* (0.  , 1 . ) 

ZA=(ZP*Gl-ZC*G2)/ (G1+ZP*G2/ZC) 

C 

C * A S S I G N MAIN  LINE  MATRIX  ELEMENT  VALUES* 

C 

G( 1 , 1 , I EL)=1 . 

G ( 1 , 2 , I EL  ) = - 1 . / Z A 
G ( 2 , 1 , I EL  ) = 0 . 

G ( 2 , 2 , I EL  ) = 1 . 

C 

C *MATRI  X ELEMENT  1,2  IF  BOTTOMED  ON  GAS  SIDE* 
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6.4.7  (Cont.) 


C 

IF(V2. EQ.V3)  G(1,2,IEL)-G2/(G1*ZC) 

C 

C *!1ATRIX  ELEMENT  1,2  IF  BOTTOMED  ON  OIL  SIDE* 
C 

IF(PR.CT.PW)  G ( 1 , 2 , I EL  ) =*0.  0001 

R ETURN 

END 


WHEQUT  models  a wide-band,  helical  Quincke  tube,  which  may  be  used  to 


dampen  acoustic  noise  in  the  resonant  mode.  The  modeled  Quincke 
tube  configuration  is  shown  below.  An  outer  spiraled  passage  is  formed  by 
winding  a solid  element  around  the  straight  inner  tube,  which  is  then  enclosed 
in  another  straight  outer  tube. 


After  specification  and  initialization  of  data,  WHEQUT  uses  the  same 
basic  calculations  as  the  LINE  subroutine  to  find  the  transfer  matrix 
for  each  element  of  the  inner  and  outer  flow  paths.  Matrices  used  in  the 
network  analysis  are  then  initialized.  Subsequently,  a loop  calculation 
performs  a network  analysis  which  computes  the  initial  element  values  of 
a 4x4  matrix  (M)  representing  the  pressure  and  flow  across  the  Quincke 
tube  device.  Computations  are  then  performed  to  "shrink"  the  4x4  matrix 
to  the  standard  2x2  matrix  (G)  required  to  represent  the  Quincke  tube 
element  in  the  main  program  impedance  calculations.  The  2x2  matrix  values 
are  then  returned  to  the'  main  program. 

6.5.1  Math  Models 

6. 5. 1.1  Network  Analysis  Math  Model  - A network  analysis  of  flow  in 
the  two  parallel  paths  and  interconnecting  holes  provides  the  usual 
2x2  matrix  element  values  representing  the  main  line  input  and  output 
flow  and  pressure  across  the  Quincke  tube  element. 

Consider  the  following  simplified  Quincke  tube  with  a single 
interconnecting  hole  between  the  inner  and  outer  flow  paths. 


I 


Equations  for  flow  and  pressure  across  line  elements  and  may 
be  written  in  matrix  form  by  combining  the  2x2  matrices  for  each  line 


Equations  for  flow  and  pressure  across  the  interconnecting  hole  may  be 
expressed  in  a 4x4  matrix  as 


where  ZH  = Impedance  of  interconnecting  hole 


Combining  ( 1 ) and  ( 2 ) gives  a general  4x4  matrix  equation,  which  is 
applicable  to  a network  with  (n-1)  elements. 


[ma]  • [mcJ 

H- 


M11 

M12 

M13 

M14 
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M23 

M24 

M31 
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qan 

P 
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A1 

AN 

QB1 

qbn 

P 
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B1 

BN 

< 

O' 

1 

P 

P 

A1 

S 

AN 

55 

PQ 

O' 

p 

p 

B1 

BN 

1 

o 

£_1 

qan 

p 

p 

A1 

AN 

QB1 

qbn 

p 

p 

B1 

BN 

(4) 


Row  1 and  3 equations  of  ( 4 ) may  be  added  to  yield 

<Mll+M31>QAl*<M12-m32)PAl+<M13+M33)<!Bl+(M14W,34)PBl-<,AN4<1BN. 


(5) 


Since  PA1  = PD1  = P. , the  second  and  fourth  terms  (columns)  may  be  combined 
A1  B1  1 

to  write 


<Mll-ffl13)'3Al+(M124t,32+M144,,34)Pl+<H13+M33)QBl  ’ 


(6) 


where 


% = qan+  qbn 


Combining  the  second  and  fourth  terms  in  the  other  two  equations  of  ( 4 ) gives 
M21QA1+^M22'W24)P1  +M23QB1  PAN  (?) 

M41QA1+(M424W44)P1  +M43QB1  = PBN  ' (8) 
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Equations  (6  ),  (7),  and  (8  ) may  be  rewritten  into  a 3x3  matrix  form  as 

M11  M12  M13  QA1  QN 
M21  M22  M23  . P1  = PAN 


M41  M42  M43  V 


where  the  following  equalities  are  valid  for  computer  operations: 

M11  = M11  + M31 

M12  = M12  + M32  + M14  + M34 

M13  = M13  + M33 

M22  = M22  + M24 

M42  = M42  + M44 

It  is  necessary  to  express  ( 9 ) as  a 2x2  matrix  to  achieve  conf ormability 
with  the  standard  2x2  matrix  used  in  the  main  programs  for  circuit  impedance 
calculations . 

The  2x2  matrix  must  also  relate  the  input  and  output  variables  for 
the  Quincke  tube  element,  i.e.  P^-  Q^,  P^-  Q^. 

To  do  this,  first  eliminate  the  Q term  in  (9  ) using  the  expression 


to  give 


QA1  Ql'  QB1 


M11Q1  + (M13~M11)QB1+  M12P1  ~ QN 


M21Q1  + (M23~M21)QB1+  M22P1  = PAN 


M41Q1  + (M43~M41)QB1+  M42P1  = PBN 
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Solving  for  Q ..  in  (12)  yields 
d1 


<B1 


PBN-M42P1  -M41Q1 
M43~M41 


Substituting  (l 3 ) in  (ll)  and  (l 0 ) gives 

(M2l'",41)Ql+(M22'AM42)Pl  " PAN~APBN 

Wirm41>Ql+(M12-,JM42>Pl  ■ VBPBN 


where 


A = 


M23-M 

M43-M 


21 

41 


B = 


M13-M 

M43-H 


11 

41 


Writing  (14)  and  (15)  in  matrix  form  using  PN  = PAN=  PfiN  gives 


M -BM, . 

M, „-BM, „ 

Q, 

1 -B 

Q_, 

11  41 

12  42 

yl 

N 

• 

= 

• 

**21^*41 

M22_AM42 

P1 

0 1-A 

PN 

_ 

_ 

_ _ 

Evaluating  the  right  matrix  determinant  and  dividing  it  into  the  left 
matrix  elements  gives 


— 

- 

- - 

MirBM4i 

M12"BM42 

Qi 

% 

l-A 

1-A 

# 

= 

M2rAM41 

M22_AM42 

pi 

PN 

1-A 

1-A 



— 

- - 

- 

(13) 

(14) 

(15) 


(16) 

(17) 
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Simplifying  the  form  of  (17),  and  evaluating  the  matrix  elements 


yields 


where 


C = M11M43~M13M41 

M43"M41_M23+  M21 


D = M1 2M4  3~M1 2M4 1~M13M42+M1 1M4  2 
M43-M41_M23+M21 


M21M43~M23M41 

M43_M4rM23+M21 


M??M43-M22M4rM23M42+M21M42 

M43_M41~M23+M:i 
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6 . 5 . 1 . 2 Geometric  Analysis  Math  Model 


The  2x2  matrix  elements  for  each  inner  and  outer  flow  path  element  in 


equation  ( 1 ) are  derived  in  the  same  manner  as  described  in  the  LINE  subroutine 
using  applicable  cross-sectional  flow  areas.  The  length  (X)  of  the  straight 
line  inner  elements  are  related  to  the  equivalent  length  (KX)  and  area  (AR) 


of  the  helical  flow  path  as  described  below 


X = length  of  inner  tube  between  successive  holes 


IT  = helix  pitch 


mean  circumference  of  outer  flow  path 


AI  = helix  angle 

-1  / Six  TT 
AI  = tan  I DTT- 


K = width  of  outer  flow  path 
K = PIT  Sin  (AI) 

S = depth  of  outer  flow  path 
S = (OID-IOD) /2 

AR  = Area  of  outer  flow  path 
AR  = K x S - LAR 

KX  = Length  of  outer  flow  path  between  successive  holes 

KX  _ 

**  Cos  AI 


i I 

l t 

L * 

b 

c* 


F: 


6.5.2  Assumptions  - Shrinking  of  the  4x4  matrix  to  a 2x2  matrix  as  described 
in  6. 5. 1.1  above  is  assumed  to  be  valid.  Frequency  dependent  friction 
(BETA)  is  computed  for  the  inner  tube  and  is  assumed  to  also  apply  to  the 
outer  helical  flow  path.  The  velocity  of  sound  in  the  fluid  is  not  modified 
by  a line  support  factor  or  material  elasticity. 

6.5.3  Computation  Method  - Matrix  algebra. 

6.5.4  Approximations  - Unknown 

6.5.5  Limitations  - Unknown 

6.5.6  Variable  Names  - Variable  names  unique  to  the  WHEQUT  subroutine 
are  listed  below.  Common  variables  are  described  in  paragraph  3. 1.6.1. 


SYMBOL 

DESCRIPTION 

UNITS 

AI 

Helix  angle 

RAD 

AR 

Area  of  outer  flow  path 

IN**  2 

C 

Velocity  of  Sound 

IN/SEC 

Cl 

Ratio  of  mean  circumference  of 
outer  flow  to  helix  pitch 

— 

DH(-) 

Input  data  for  distance  from  inlet 
to  each  connecting  hole 

IN 
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SYMBOL 

DESCRIPTION 

UNITS 

GH 

Temporary  variable 

— 

G1-G4 

Temporary  variables 

— 

HL 

Temporary  variable 

— 

I 

Integer  counter 

I ID 

Input  data  for  inner  tube  inside 
diameter 

IN 

IOD 

Input  data  for  inner  tube  outside 
diameter 

IN 

J 

Integer  counter 

— 

K 

Width  of  outer  flow  path 

IN 

KK 

Address  of  second  record  input  data 

— 

KX 

Distance  on  outer  flow  path 

LAR 

Input  data  wound  element  cross-sectional 
area 

IN**  2 

LH 

Length  of  interconnecting  holes 

IN 

M(-) 

4x4  array  for  Quincke  tube  total  matrix 

— 

MA(-) 

4x4  array  for  respective  inner  and 
outer  tube  transfer  matrix 

— 

MB(-) 

Temporary  4x4  array  while  computing  M(-) 

— 

MC  (-) 

4x4  array  for  interconnecting  hole  transfer 
matrix 

— 

NH 

Input  data  for  number  of  interconnecting 
holes 

— 

OID 

Input  data  for  outer  tube  inside  diameter 

IN 

OOD 

Input  data  for  outer  tube  outside  diameter 

IN 

PIT 

Input  data  for  helix  pitch 

IN 

RH 

Temporary  variable 

— 

S 

Depth  of  outer  flow  path 

IN 
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SYMBOL 

DESCRIPTION 

UNITS 

SI 

Mean  diameter  of  outer  flow  path 

IN 

x(-) 

Array  for  length  of  inner  tube  segments 
between  successive  holes 

IN 

XL 

Input  data  for  total  length  of  outer 
flow  path 

IN 

XH(-) 

Input  data  array  for  length  of  each  hole 
from  inlet 

IN 

Y1-Y3 

Temporary  variables 

— 

ZH 

Impedance  of  interconnecting  hole 

— 

Z5 

Characteristic  impedance  of  inner  tube 

PSI/CIS 

Z6 

Characteristic  impedance  of  outer  flow 
path 

PSI/CIS 

nnnnflno  oooo 


6.5.7  WHEQUT  Subroutine  - Listing 


/s  \ i t ? J 
li  t ' 


* * « / WiiJuL 


SUB01LTINF  kFFGL  T (V,<TART,V) 


* REVISED  MARCH  3 » 1 S 7 5 * 

<=V  AR  I ABl  F TYPES,  DIMENSION'S,  C C m m A N A L [ T Y * 


REAL  I IC*  rCDfLAR  ,LH,K,KX 

COMMON  3FTA,G,P,G,Z»  V 0 E , PF  R , R F.  I , B FR  P , BE  I P ,R  HO  , RU  LK  , VOL , 
I -1,  P I , I r l , N F L » K T VPE  ( 40 

COMPLEX  BETA ,G ,p,Q,Z  *75 , Yl, Y2 , 76, Y’ ,G1 ,G2,G3 , G4  , N , M A , M.3  , 
1 A f P , 0 , F , F , C 

D IMF  NS  ION  G<  2,2 ,40  ,PARM8 ,4C  ) ,P(40)  ,Q(40>  ,ZI40)  ,M(4,4t  , 

, . i i j / \ k,  r I / -V  u i . / i n » m j M n ) \/  # i r,  *■ 


^SOLUTION  MpTHCD* 

* T E ST  FOR  FIRST  RPR* 


* INITIALIZE.  VARIABLES  FROM  INFLT  DATA  ARP  AY* 

IF(y.\f.'a START)  GC  Tr  1 2 C 
XI  = P A 0 M 1 , I F L ) 

I IC^oARV ( ?,  l EL  ) 
inO=P  ARM  ( 3 , I FH 
n IP  = P ARM  ( 4 , I FI  ) 

G n n = p a r m ( 5 , i r l > 

LAR  = PA-M(^.,iCL  ) 

P IT  = P ARM ( 7,  I FL  ) 

K K = n A 0 ,*  ( E,  I EL  ) 

IF(KK.FO.O)  GO  TC  11C 
NH  = P ARM  ( 1 , K K ) + . r 1 
LH  = P ARM  ( 2 , KK  ) 

IV-  2 3C  I = l,B 
20  0 X H ( I ) = P A R M ( j ,KKt  I) 
nn  2 1 C I=S,lfc 
210  X H ( I ) = R A R V ( I ,KK-*2I 

on  2 2 C T = L , B 

220  DM  I ) = P A R 0 ( I , XK+3) 

0^  2 3.'  I =S,  16 

2 30  0H(  I ) =PARM(  I ,KK*-4) 

X ( 1 ) =*H<  1 ) 
nc  ICC  I = 2 , NH 
100  v ( I I =XH<  I )-Xh  (1-  1) 

*( I- 1 ) =XL- XH ( I » 

1IC  x ( l ) = v i 

C = SQR I ( PULK/RHO ) 

120  *Hf  = SGI' T ( V I SC  / I 2.C*W ) ) *2. /II F 

BFTA  = 4.C*XBF**2-XRFM0.C,l.C>*(  XPF-l.D) 

7 0=r’cTA<--RHC*C*4.C/(PI*IlC*lir) 

V 1 = U*BE  TA/C* ( G . , 1 . ) 

s i = ( c ir  + ioo  ) / 2 
s = <oi r- iroi/2 

r I = s I*P  l /o  I T 
A I = A TAN( C N 
K=P I T*S  IN( A I ) 


■U 

lr  J 


W, VI  SC, PAR 
«C. 7 E,GH 
MA(4,4),M 


A»=K  * s-L  a1? 

76  = B ETA *RHC*C/ AP 

DATA  M A , Y 3 , M C , M / f 4 $ ( C . 0 ) / 

no  13C  1=1,4 

m a ( i , n = ( i . , c . > 

MB ( I , I ) = ( 1 . , C.  ) 

MC( 1 , I ) = ( L. ,0. 1 
130  M(I,T)=(l.,0.) 

J=  1 

1 AC  Y 2 = X ( J ) * Y 1 

KX=X  I J ) /C.rs(  AT  ) 

Y3=K  X*  Y2 
G1=CCCS( Y 2 ) 

G 2=C  S If  ( Y 2) 

G3=rccc ( V ? ) 

G4=C  S IN  ( Y 3 ) 

MA(l,  1)=C1 

M A ( 1,2)=— ( 1. H 5>*G2 

'*h  (2,1 ) =75*02 

w A ( 2 , 2 ) =G  l 

M A ( 3 , 2 ) = G 3 

MA  (A,  3 I = 7 6 * G 4 

M A ( 3 , A ) =—  ( 1 . / .7  6 ) * G A 

MA14,4)=G3 

cam  r;yppn( ma  ,yn  ,v , a , a , a ) 

P"(J.FQ.  AND  GC  rr  150 
I F ( MH  . I.  c . 0 . 0 ) GC  tc  150 
RH=fi.C*fc*VISC 
RH=  SCR  T ( RP  ) /PH  ( J ) 

HL=LH*A.C*RMC/(rH(  J)*f)H(  Jl) 

7 U = HL*PH  + HL*(v*  (C.  , l . ) 

GH=1 .0/ZH 
Mr ( l, 2 1 =-GH 
Mr  ( 1, A 1 =GH 
MC (3,2) =GH 
MC r 3 , A ) =-GH 

CAM  GMPRn(MC,VtWH,A,A,A) 

J = J+  1 

GO  TO  1 A C 

150  M(  1,  l >=M(  1,  1 )«4'l  3, 1) 

M ( l,2)  = v(  1»2)+M(2»?)*M1,4)  + M3,4) 

M(  1,?)=M(  1,3)+m(3,3) 

M(A,2)=M(A,2)+W(A,A) 

M(2,2)=M(2»2)fM<2,4) 

CCM=m( a, 3)-M(A,l)-y(?,3)sM(2,l) 
G(l,l,!FL)=(M(l,l)*M(A,3)-y(l,3)*M(A,l))/GrM 
G(  1,  3,  1FL)=(V(  1,?)*m(A,3)-M(1  ,?)*M(Afl)-Ml,3)*M(4,?) 
1+m(  i,  i)*w(4,2)  )/Crv 

C ( 2 , 1 , I 5 U = ( M ( 2 , 1 ) * M ( A , < ) - M 2 , 3 ) * y ( 4 , 1 ) ) / C r M 
G ( ?, ?, 1 E L ) = ( v( 2»?)*V(A,3)-Y(2»2)*N(4,1  ) - M ( 2 , 3 I * M ( A , 2 ) 

1+m ( ?, m * v ( 4 , 2 ) ) /r  r« 

RETURN 
c v r 


6.6  NEW  COMPONENT  SUBROUTINES 


I 


f~  1 


Additional  component  model  subroutines  may  be  incorporated  in  the 
frequency  response  program  by  following  the  general  instructions  outlined 
below. 

6.6.1  Main  Program  Call  Requirements  (Ref.  Para.  3.3)  - The  component  for 
a new  subroutine  must  be  assigned  NTYPE  and  KTYPE  number  identifications 
to  allow  the  new  subroutine  to  be  called  by  the  existing  computed  go  to 
statement  in  the  "DO  250”  loop  of  the  main  program.  In  order  for  currently 
programmed  circuit  termination  logic  to  remain  valid,  a new  subroutine 
must  be  assigned  to  an  existing  element  family,  i.e.,  NTYPE  1,2, 3, 4, 5, 8,  or  9. 
NTYPE' s 6 (branch)  and  7 (dummy)  should  not  be  used  for  new  subroutines. 

It  is  desirable,  but  not  necessary,  that  a family  contain  similar  types  of 
elements.  KTYPE  numbers  may  be  used  for  calling  the  applicable  subroutine. 
KTYPE  numbers  for  this  purpose  should  be  single  digits  from  0-9,  since  the 
second  (left)  KTYPE  digit  is  used  to  indicate  the  number  of  extra  data  cards 
for  an  element. 

As  an  example,  suppose  that  a new  type  of  valve  element  (KTYPE  = 1)  is 

to  be  added  to  the  valve  family  (NTYPE  = 4) . The  present  call  statement 

(#165)  in  the  main  program  (paragraph  3.3.7)  becomes 

165  IF  (KTYPE (IEL) .EQ.O)  CALL  VALVE 
IF  (KTYPE (IEL) .EQ.l)  CALL  VALVE1 . 

If  the  new  subroutine  requires  the  exchange  of  information  other  than 

common  data  with  the  main  program,  it  must  be  included  in  the  call  statement. 

165  IF  (KTYPE (IEL) .EQ.O)  CALL  VALVE 

IF  (KTYPE (IEL) .EQ.l)  CALL  VALVEl(XXX) 


i 
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6.6.2  Structure  of  New  Subroutine  - The  first  line  of  a new  subroutine  con- 
tains the  subroutine  name,  with  the  same  argument  as  the  main  program  call 
statement. 

Example 

SUBROUTINE  VALVEl(XXX) 

The  subroutine  name  is  followed  by  specification  statements.  A "common" 
statement  is  included,  identical  to  the  other  subroutine  "commons". 

The  dimension  statement  for  G,  PARM,  P,  Q,  and  Z is  also  included. 

Type  statements  are  as  required  based  on  the  variable  names  used  in  the 
new  subroutine. 

Specification  statements  are  followed  by  initialization  of  applicable 
variables  from  the  input  data  array,  PARM(-,-).  Computation  of  the 
new  component  impedance  follows,  and  finally  assignment  and/or  computation  of 
the  component  2X2  transfer  matrix  values  is  required.  Control  is  then  returned 
to  the  main  program. 


7.0  OUTPUT  SUBROUTINES 


7.1  GRAPH2  AND  SCALED  SUBROUTINES 

Subroutine  GRAPH2  plots  the  selected  component  and  line  element  parameters 
versus  pump  speed.  Section  6 of  the  main  program  identifies  the  array 
addresses  for  a particular  parameter,  and  calls  GRAPH2  for  the  actual  plotting. 
GRAPH2  sets  up  the  plot  axis  scaling,  writes  the  axis  scales,  and  plots  the 
parameter  values.  Plot  titles  are  written  by  Section  6 of  the  main  program. 

Subroutine  SCALED  is  called  by  GRAPH2 , and  controls  the  vertical  (Y) 


and  horizontal 

(X)  axes  scaling  of  the  plots. 

7.1.2  Variable  Names  - GRAPH2 

SYMBOL 

NAME 

UNITS 

I 

Integer  counter 

- 

ICHART  (-) 

X and  Y axis  write  characters 

- 

IPCHAR  (1) 

Plot  character 

- 

ISP 

Integer  counter  for  Y axis 

- 

ISPACE  (-) 

Temporary  variable  for  writing  X and  Y axis 

scales 

- 

LINE 

Integer  counter  for  plot  line  number 

- 

NPLTPT 

Number  of  points  per  plot 

- 

OMEGA  (-) 

Pump  speed  values 

RPM 

XAX 

Temporary  variable  for  writing  X axis  scale 

values 

- 

XMIN 

First  (lowest)  X axis  value 

RPM 

Y 

Temporary  variable  - Y axis  scale  value 

- 

YDELTA 

Y-axis  scale  incremental  value 

- 

YLAST 

Last  Y-axis  scale  value 

- 

YLO 

Lowest  value  in  YPLT  search  range 

- 

YMAX 

Maximum  value  to  be  plotted 

- 

YMIN 

Minimum  value  to  be  plotted 

- 
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Symbol 

Name 

Units 

YPLT  (■ 

Array  of  values  to  be  plotted 

- 

YUP 

Highest  value  in  YPLT  search  range 

- 

7.1.3 

Variable  Names  - SCALED 

AMAX 

Maximum  value  to  be  plotted 

- 

AMIN 

Minimum  value  to  be  plotted 

- 

IBOT 

Variable  used  to  calculate  Y axis 

scale 

values 

- 

IEMAX 

Variable  used  to  calculate  Y axis 

scale 

values 

- 

IEXP 

Variable  used  to  calculate  Y axis 

scale 

values 

- 

ITOP 

Variable  used  to  calculate  Y axis 

scale 

values 

- 

J 

Integer  counter 

- 

MANT 

Variable  used  to  calculate  Y axis 

scale 

values 

- 

RANGE 

Range  of  values  to  be  plotted 

- 

RMAX 

Maximum  Y axis  scale  value 

- 

RMIN 

Minimum  Y axis  scale  value 

- 

SCALE 

(-)  Scale  factors  for  Y axis 

- 

7.1.3 


Subroutine  GRAPH2  - Listing 


SllH  ROUTINE  GRAPH  2 (OM  EGA  , YPLT  , N PLTPT  , I PCHAR) 

C 

C * REVISED  MARCH  3,  1 975  * 

C 

DIMENSION  OMECA( 1 25 ) , YPLT ( 1 2 5,  1 ) , ISPACE(lOl), 

+XAX( 6) , ICHART ( 4 ) , I PCHAR ( 1 ) 

DATA  ICHART/ 1MI , 1H-, 1H+, 1H  / 

C SCALE  X 

XMAX-Ofl  EGA (NPLTPT  ) 

XMI N-OM  EGA ( 1 ) 

CALL  S CAL  ED ( XMAX , XMI N ) 

XD  ELTA- (XMAX-XHIN ) / 1 00. 

C FIND  Y-PARAMET  ERS 

2 y;iax=yplt ( 1,1) 

YMI N= YMAX 

DO  902  1=2,  NPLTPT 
YMAX-AMAX1 (YMAX, YPLT (1 , 1 ) ) 

90  2 YM IN-AMIN  1 (YM IN, YPLT (I , 1 ) ) 

I F ( YMAX. N E. YM1U )GO  TO  9025 
YMAX-YMAX+2  5. 

YMIN-YMIN-2 5. 

9025  CALL  S C AL ED ( YMAX , YM I N ) 

YD  ELTA= (YMAX-YMIN) /5  0. 

C ADVANCE  TO  TOP  OF  NEXT  PAGE 

VJ  R I T E ( 6 , 6 0 1 ) 

601  FORMAT  ( 1 H 1 ) 

C LOOP  FOR  EACH  PLOT  LINE 

Y= YMAX  + YDELTA 
7 DO  907  LIN  E= 1 , 5 1 

YLAST=Y 
Y=Y-YD ELTA 
YUP-Y+YDELTA/2. 

YLO  = YU  P-YD  ELT  A 

C FIRST  + LAST  CHARACTER  ON  LINE  = *1* 

ISPAC  E( 1 ) - ICHART ( 1 ) 

ISPACE( 101 )-ICHART ( 1) 

C FIRST  + LAST  LINES  ALL  *-*,  EXCEPT  * + * IN  COL.  1 1 , 2 1 , 3 1 , . . . 8 1 , 9 l 

IF  (LINE.  NE.  1.  AND.  LINE.  N E.  5 1 ) CO  TO  11 
9 DO  909  I S P=  2 , 100 

IF( (ISP-1 ). EQ. (ISP-1 )/ 10* 10)GO  TO  10 
ISPAC  E(ISP)=ICHART( 2) 

GO  TO  909 

10  ISPAC E(ISP)-ICHART(3) 

909  CONTINUE 

GO  TO  1 4 

C INITIALIZE  COL. 2-100  OF  LINES  2-50  TO  * *,  OR  ** *--*  IF  AX 

11  IF(Y.LE.O. .AND.YLAST.GT.O. )GO  TO  13 

12  DO  9 1 2 ISP-2,  100 

912  ISPAC E(ISP)-ICHART(4) 

GO  TO  14 
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7.1.3  Subroutine  GRAPH2  - Listing  (Continued) 

i 

13  DO  913  ISP-2,100 
ISPAC  E(ISP)-IC!1ART  ( 2 ) 

913  IF( (ISP-1 ). EQ. (ISP-1 ) /I 0* 10) ISPAC  E ( I S P ) = IC H ART (3) 

C SEARCH  YPLT  FOR  VALUES  IN  RANGE  YLO  . LT  . Yl’LT  . G E.  YU  P 

14  DO  914  1=1,  NPLTPT 

IF(YPLT(I,  1).GT. YLO  .AND.  Y PLT ( I , 1 ) . L E. Y U P ) G 0 TO  145 
GO  TO  914 

C FIND  COLUMN  NEAREST  TO  I-TH  VALUE  OF  OMEGA 

145  ISP=(OMEGA(I) -XMI N)/XDELTA  + 1.5 
IF(ISP)  914,15,16 

15  ISP=1 

GO  TO  18 

16  IF (ISP-102) 18,17,914 

17  ISP- 101 

18  ISPAC E(ISP)=I PCHAR( 1 ) 

914  CONTINUE 

LINES  1 , 1 1 , . . . , 41 , 5 1 HAVE  Y-VALUES THESE,  PLUS  LINES  6,16,26,3 

+ 46  ALSO  HAVE  *+*  IN  COL  1+101  IF  NO  PLOT  CHARACTER  PRESENT 
IF ( (LINE-1 ). N E.  (LIN E- 1 ) / 5 * 5 )GO  TO  19 
IF ( ISPAC  E( 1 ) .N  E. I PC  HAR ( 1 ) ) ISPAC  E( 1 )-ICHART (3) 

IF ( ISPAC E( 101 ) ,N E. I PC HAR ( 1 ) ) ISPAC  E( 101 )=ICHART ( 3) 

IF( (LINE-1). NE. (LINE-1 )/ 10* 10)GO  TO  19 

C WRITE  PLOT  LINE 

WRIT  E(  6, 602  ) Y , ISPAC  E 
602  FORMAT ( 1 X, 1 7X, F9. 2, 2X, I IA1) 

GO  TO  9 7 

19  WRITE(6,  6 3 ) I S PAC  E 

6 3 FORMAT ( 1 X, 28X, 1 1A 1 ) 

9 7 CONTINUE 

C CALCULATE  + PRINT  X-AXIS  VALUES 

2 DO  92  1=1,  6 

92  XAX ( I ) -XMI N + ( I - 1 ) * 2 . * XD ELT  A 
WRIT  E( 6, 6 4)  XAX 

6 4 FORMAT ( IX, 22X, 5 (F9. 2, 1 1 X ) , F9. 2) 

R ETURN 
END 
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7.1.4 


Subroutine  SCALED  - Listing 


SUBROUTINE  SCALED(  RMAX,  RMIN) 

* REVISED  MARCH  3,1975  * 

DIMENSION  SCALE ( 6 ) 

DATA  SCALE/. 5,1. ,2., 5., 10., 20./ 

RANGE=RMAX-RMI  M 
AMAX=RMAX 
AMIN=RUIN 
I EXP=ALOG10( RANGE) 
hANT= RANGE/  10.**IEXP 

I F ( RAN GE . GT . HAN T* 1 0 . * * I EX P ) MAN T=M AN T+ 1 
GO  TO( 30,90, 100, 100, 100, 110, 110, 110, 110,70) , MANT 
7 0 xlANT=l 

IEXP=IEXP+1 
80  J = 2 

GO  TO  120 
90  J = 3 

GO  TO  120 
100  J = 4 

GO  TO  120 
110  0=5 

120  I EM AX=A LOG 1 0 ( RMA X ) 

RMAX=  I NT  ( AHAX/ 1 0 . * * I EMAX ) * 1 0 . * * I EM  AX 

121  IF( RMAX.GE. AMAX)GO  TO  130 
RHAX=RMAX+ . 0 5*SCALE ( J ) *10.**IEXP 
GO  TO  121 

130  RwIN=RMAX-SCALE( J) *10. **IEXP 
I F ( Ri'il  lN  . LE . AMI  N ) GO  TO  150 
J = J + 1 

I F ( J . LT . 5 . 5 ) GO  TO  130 
J=1 

I LXP= I EX  P+ 1 
GO  TO  130 

150  I F ( R;  I IN* AM I N . GT. 0 . ) GO  TO  170 
PMIN=0 . 

Ri'lAX=SCALE  ( J ) * 1 0 . * * I EXP 

I F ( RMAX. LT. SCALE ( J-l) * 10. **IEXP) RHAX=SCALE( J- 1 ) * 1 0 . * * I EXP 
170  I F ( RM I N . LT . 0 . ) GO  TO  130 

I F ( RM I N . GT . . 1 * RMA X ) GO  TO  190 
RMIN=0 . 

RMAX=3CALE( J) *10.**IEXP 

I F ( RMAX. LT. AMAX) RMAX=SCALE( J+l ) *10. **IEXP 
RETURN 

130  I TOP=  ( RMAX-AMiAX ) / ( . 0 5* SCALE ( J ) * 1 0 . * * I EX P) 

1 30T=  ( Ail  I N-RM I M ) / ( . 0 5*SCALE  ( J ) * 1 0 . * * I EXP ) 

I F ( ITOP.EQ.I30T) RETURN 

RMI  N=RMIlN+  IABS  ( ( I TOP-  IBOT ) / 2 ) *.  05*SCALE(  J)  * 1 0 . * * I EXP 

RMAX=RMIN+SCALE ( J ) *10. **IbXP 

RETURN 

END 
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8.0  UTILITY  SUBROUTINES 

8.1  GMPRD  SUBROUTINE 

Subroutine  GMPRD  is  a modified  IBM  scientific  computational  subroutine 
(Reference  (2))  which  multiplies  two  complex  general  matrices  to  form  a 
resultant  complex  general  matrix  such  that 

[A] - [B]=[R] 

GMPRD  is  currently  called  only  by  the  WHEQUT  subroutine,  where  it  is  used  to 
multiply  complex  matrices  of  4 x A order. 

8.1.1  Variable  Names  - GMPRD  variable  names  are  listed  below. 

SYMBOL  DESCRIPTION  UNITS 

A Name  of  first  input  matrix 

B Name  of  second  input  matrix 

R Name  of  output  matrix  - 

N Number  of  rows  in  A - 

M Number  of  columns  in  A and  rows  in  B 

L Number  of  columns  in  B - 


i 
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8.1.2  GMPRD  Subroutine  - Listing 


SUBROUTINE  GMPRD  TRACE 


5 

10 

15 

20 


SUBROUTINE  GMPRO < A ,ft ,R , A , R , L > 
C 

c***+  REVISED  SEPTEMBER  3, ISM  **** 
C 

COMPLEX  A , ft  , R 
DIMENSION  All), Bill, Rill 
C 

I R =0 
I K =—  M 

DO  ICO  K = 1 , L 
IK=  IK+M 
DO  100  J = 1,N 
I R = I R + 1 
J I = J-N 
IB  = IK 
R ( IR ) =0 
DO  IOC  1=1, M 
J I =J I *N 
I B = I B ♦ 1 

100  RI  IR1=R(  IRJ+AI  JH*BC  IB) 

RETURN 

END 


C DC  6600 
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8.2  FLUID  SUBROUTINE 


Subroutine  FLUID  calculates  and  writes  the  fluid  density,  adiabatic 
bulk  modulus,  and  kinematic  viscosity  at  the  fluid  steady  state  temperature 
(TEMF)  and  pressure  (PRESS)  specified  in  the  frequency  program  input  data. 

Data  are  currently  included  in  FLUID  for  three  hydraulic  fluids;  MIL-H-5606B, 
MIL-H-83282,  and  SKYDROL  500B.  FLUID  is  presently  dimensioned  to  accept  data 
on  three  additional  fluids.  Fluid  data  sources  and  calculation  of  properties 
are  discussed  in  Appendix  B,  along  with  tabulations  of  data  presently 
included  in  FLUID.  Data  sources  are  also  contained  in  the  FLUID  subroutine 
itself  via  comment  records.  Volume  1 of  this  report  describes  the  option 
whereby  the  user  may  specify  and  input  his  own  fluid  data  to  the  HSFR  program, 
if  the  user  desires  to  not  use  FLUID. 

The  FLUID  subroutine  argument  requires  the  input  data  values  for  the 
temperature,  pressure,  and  the  fluid  type  identification  number.  Also,  the 
argument  includes  the  variable  names  of  the  three  fluid  properties,  since 
they  are  not  in  "common".  Parameters  are  then  dimensioned  for  nine  input 
data  points  and  six  fluids.  Data  statements  are  then  used  to  input  the  name 
of  each  fluid,  the  nine  temperature  data  points  for  each  fluid,  and  the  bulk 
modulus  and  viscosity  data  corresponding  to  the  nine  temperature  points  for 
each  fluid.  Only  two  points  are  used  for  density  input  data  since  a straight 
line  interpotation  is  used  over  the  entire  temperature  range  for  density 
calculations . 

Subroutine  INTERP  is  then  called  to  estimate  the  fluid  property  value  at 
the  actual  fluid  operating  temperature.  Viscosity  is  then  converted  from 
metric  (centistokes)  to  English  units  (newts).  Density,  bulk  modulus,  and 


viscosity  values  are  then  corrected  to  the  steady  state  operating  pressure. 
Finally  FLUID  writes  the  computed  properties  before  returning  control 


$ 


8.2.1  Math  Model  - Not  applicable. 

8.2.3  Computation  Method  - FLUID  calls  subroutine  INTERP  (Ref.  paragraph  8.3) 
which  derives  the  fluid  property  at  operating  conditions  from  input  property  data. 

8.2.4  Approximations  - Not  applicable. 

8.2.5  Limitations  - Not  applicable. 

8.2.6  Variable  Names 


SYMBOL 


UNITS 


A Temperature  ratio 

ABULK(-,-)  Array  for  ten  adiabatic  bulk 

modulus  input  data  points  for 
six  fluids 


ATEMP(-,-)  Array  for  ten  temperature  data 

points  for  six  fluids 

AVISC(-,-)  Array  for  ten  viscosity  input  data 

points  for  six  fluids 


CENTI STOKES 


B Viscosity  correction  exponent 

BRHO(-,-)  Array  for  two  density  input  data 

points  for  six  fluids 

BTEMP(-)  First  and  next  to  last  temperature 

input  points 


LB*SEC**2/IN 


COEFF 


Bulk  modulus  at  operating  conditions 

Viscosity  correction  factor 

Input  data  fluid  type  identification 
number 


IFLUNM(-,-)  Array  for  fluid  names 


Number  of  input  temperature  points 


Error  indicator 


Integer  counter 


Input  data  fluid  operating  pressure 
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8.2.6  Variable  Names  (Cont’d) 

SYMBOL  NAME  UNITS 

RHO  Density  at  operating  conditions  LBS*SEC**2/IN 

TEMP  Input  data  fluid  operating  temperature  °F 

VISC  Viscosity  at  operating  conditions  IN**2/SEC 


t 
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8.2.7  FLUID  Subroutine  Listing 


SUBROUTINE  FLUID  ( TfcdP,  PRESS , I F , VI SC , BULK , RHO ) 

C****  REVISED  1‘lARCH  3,  1975  **** 

DIMENSION  ATEi'lPf  10,6)  , AVISO  ( 10,6)  ,A3ULK(  10,6)  , BRHO(  2,6), 
13TENP(  2)  , COEFF  ( 6 ) , IK  ( 6)  , IFL(JNN(  3,6) 

SECOND  SUBSCRIPT  REFERS  TO  FLUID  TYPE  (IF  PARAMETER) 

DATA  IFLUN.'i 

1/8H  FOR  NIL, 8H-H-5606B, 8H  AT  , 

28H  FOR  NI L,  8I1-H  - 8 3 23  2 , 8H  AT  , 

3RH  FOR  SKY,  3HDROL  500,3H'3  AT  , 

4 6 * 8 H 


58H 

, 8H 

, 8H 

AT 

/ 

DATA 

ATEMP 

/ 

1-65.  , 

-40.  , 

0.  , 

50. 

,100. 

,150. 

, 200. 

, 250. 

, 300. 

,300 

2-65., 

-40.  , 

o. , 

50. 

,100. 

,150. 

, 200. 

, 250. 

, 300. 

,300 

3-65.  , 

-40.  , 

0. , 

50. 

,100. 

,150. 

, 200. 

, 250. 

, 300. 

, 300 

430*10 

• / 

DATA  BTLMP  / 

1-65. ,275.  / 


RUO, BULK  AND  VISC  DATA  ARE  FOR  0.0  PSIG 

RHO  DATA  SOURCE: 

1- tlDC  REPORT  A2686  DATED  4/74 

2- .1DC  REPORT  A2636  DATED  4/7  4 

3- ilONSANTO  DATA  SHEET  DATED  6/67(  DOUGLAS  HYD  MANUAL) 
DATA  3 RHO  / 

18. 57E-5, 7. 63E-5, 

28. 49E-5, 7. 3E-5, 

310. 3E-5,S.9L-5,6*13./ 


BULK  DATA  SOURCE: 

1-  LETTER  TO  G.ADIES  F RON  J . .v  . NOONAN  DATED  11/70 

2- TECHNICAL  REPORT  AFNL-TR-73-S1  DATED  4/73 

3- LETTER  TO  G.ANIES  F RON  J.W. NOONAN  DATED  11/70 
DATA  ABULK  / 

113.47E5,3.25E5,2.9E5,2.48L5,2.08L5,1.73E5,1.42E5,1.19E5,.93L5, 
A. 98E5, 

213. 47L5, 3. 25E5, 2.9L5, 2.48E5, 2.08E5, 1.73E5, 1.42E5, 1. 19L5, .98E5, 
A. 98L5, 

334.26E5,4.05L5,3.64E5,3.18E5,2.7E5,2.29E5,1.94E5,1.62L5,1.38L5, 
A1 . 38E5, 30*10.  / 

VISC  DATA  SOURCE: 

1- MDC  REPORT  A2686  DATED  4/74 

2- .1DC  REPORT  A2686  DATED  4/74 

3- OONSANTO  DATA  SHEET  DATED  6/ 6 7 ( DOUGLAS  HYD  .IAN UAL) 

DATA  AVI SC  / 
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2.1  FLU  ID  Subroutine  Listing  - Coni' d 


11993.5,482.3,134.4,34.85,14.47,7.46,4.58,3.10,2.39,2.39, 
211146. 9, 2 (319. 3, 269. 4 5, 48. 87, 15. 95, 7. 46, 4. 24, 2. 83, 2. 04, 2. 04 
33185.5,590.07,104.13,27.9,11.7,6.5,4.18,2.89,2.15,2.15, 

A3  0* 1 0 . / 

C 

DATA  IK/ 3* 9, 3*10/ 

DATA  COliFF/.  3 3 5 , . 3 3 , . 4 2 , 3*  1 0 . / 

C 

I F ( I F . E Q . 0 ) CO  TO  100 

CALL  INTLRP(  TEMP,  ATEMP(  1 , IF)  , ABIJLK  ( 1 , I F ) , 2 0 , I K ( I F ) , 

13ULK , I NO) 

CALL  I (MTU  UP  ( T EM  P , BTEi-1  P , B KUO  (1, IF), 10, 2, 

1RUO, IND) 

CALL  I NTLRP  ( TEMP,  ATfc>iP(  1 , IF)  , AVISC(  1 , IF)  , 1 1 , 

1  I K ( IF) , VISC,  HMD) 

CALL  INTLRP(  TK.  iP,  ATEmP(  1 , IF)  , AVI  SC  ( 1 , IF)  , 1 2, 

1  IK( IF) ,COLFF( IF) , IND) 

C 

C Vise  IS  CONVL RTLD  FRO, 4 CENTISTOKES  TO  NEWTS 

VISC=VISC*1.555E-3 

C DENSITY , VISC  MID  SULK  ARE  ADJUSTED  TO  PRESSURE  ' PRLSS ' 

RHO=RHO* ( 1 . + PR ESS/ 2. 5L5) 

BULK=BULX+1 2. * PRLSS 
A = 5 6 0 . / ( TLiiP+4  60.  ) 

B = ( ( COLFF ( IF)  ) * * A ) * PRLSS*  2 . 3U-4 
VISC  = VISC*LXP(  l3) 

2  00  WRITE ( 6, 601 ) ( I FLUNU  ( J , I F ) , J = l,  3)  , PRLSS , T1-J.4  P,  VI  SC , f<HO,  BULK 

601  FORMAT  ( / / 2 5X  , 1 1 il  FLUID  DATA  , 3A8  , F7 . 1 , 9 II  PSIG  AND  ,F6.1, 
A71!  DLG  F ,//,35X, 

1 1 4 (3  V I SCOSITY  -,  L10.  3,  2X,  9U I N*  * 2/SL’C  , / , 35X, 

2 14UDLNSITY  -,  E 1 0 . 3 , 2 X , 1 7 II  ( LB-SEC*  * 2 ) / 1 N*  * 4 , 

3 /, 35X, 14 U BULK  UODULUS  -,  El  0 . 3 , 2X , 3HPSI  ) 

CO  TO  222 

100  CONTINUE 
I F = 6 

WRITE  ( 6,6  02)  ( IFLUNi>l(  J,  6)  , J=1  , 3)  , TEMP , VISC  , RUO , BULK 

602  FORMAT ( // 2 5X , 1 6H  FLUID  DATA  FOR  ,3A8,12H  PSIG  AND,F6.1, 
A7H  DLG  F ,//, 35X, 

1 14UVISCOSITY  -,L10. 3, 2 X , 9H I N* * 2/SEC , / , 35X, 

2 1 4HDLIJSITY  - , L 1 0 . 3 , 2X , 1 7 1! ( LB-S EC*  * 2 ) / 1 N*  * 4 , 

3 /,  35X,  14I13ULK  MODULUS  - , E 1 0 . 3 , 2X , 3HPSI  ) 

222  CONTINUE 

RETURN 
END 


8.3  INTERP  Subroutine 


The  INTERP  subroutine  provides  interpolation  for  continuous  or  discon- 
tinuous functions  of  the  form  Y = f (X) . INTERP  is  a shortened  version  of  a 
MCAUTO  library  functional  subroutine  named  DISCOT.  (Reference  (7)). 

INTERP  uses  two  other  subroutines,  DISER1  and  LAG RAN , to  derive  the 
dependent  variable  from  tabulated  data  input  by  the  programmer  or  already 
existing  in  the  program  subroutine.  Subroutine  DISER1  gives  the  data  points 
around  the  X variable.  Lagrange's  interpolation  formula  is  used  in  the  sub- 
routine LAGRAN  to  obtain  a Y value.  For  an  X value  lying  outside  the  range 
of  the  tabulated  data,  the  Y value  will  be  extrapolated.  Fluid  viscosities 
are  calculated  using  a modified  Walther  equation  (Reference  (8)). 

8.3.1  Solution  Method.  The  INTERP  subroutine  provides  the  necessary  control 
parameters  to  DISER1  and  LAGRAN  to  yield  a dependent  variable.  The  sub- 
routine arguments  are: 

Subroutine  INTERP  (X,TABX,  TABY , NC,  NY,  Y,  IND) 
where : 

X - Argument  of  function  Y = f (X) 

TABX  - X array  of  independent  variables  in  ascending  order 
TABY  - Y array  of  dependent  variables  in  ascending  order 
NC  - Control  word 

Tens  Digit  - Degree  of  interpolation 
Units  Digit  - 1 = Walther  equation 

0 = LAGRAN  interpolation 
NY  - Number  of  data  points  in  the  Y array 
Y - Dependent  variable 
IND  - Error  indicator 

0 = Normal  interpolation 

1 = Extrapolation  outside  range  of  data  points. 
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8.3.2  Assumptions.  Not  applicable 

8.3.3  Computations.  The  degree  of  interpolation  is  decoded  from  the  control 
word  NC  in  the  INTERP  subroutine  argument  and  passed  to  DISER1.  The  error 
indicator  IND  is  set  to  zero.  On  finding  the  data  point  closest  to  the  X 
value  from  DISER1,  it  is  entered  into  the  LAGRAN  subroutine  argument.  If  the 
modified  Walther  equation  is  to  be  used  for  a viscosity  calculation,  IDX  is 
set  equal  to  -1. 

8.3.4  Approximations . Not  applicable 

8.3.5  Limitations . The  X and  Y data  points  must  be  entered  in  an  ascending 
order.  When  tabulating  a discontinuous  function  the  independent  variable  (X) 
at  the  point  of  discontinuity  is  repeated,  i.e., 


Thus  for  discontinuous  functions  there  must  be  K.  + 1 points  above  and  below 
the  discontinuity,  where  K is  the  degree  of  interpolation. 


8.3.6 

INTERP  Variable  Names. 

SYMBOL 

NAME 

UNITS 

IDX 

Degree  of  interpolation 

- 

IND 

Solution  indicator 

= 0 Normal  interpolation 

= 1 Extrapolation  outside  of  data  range 

NC 

Control  word 

- 

NPX 

Dummy  array 

- 

NPX1 

Location  of  data  point  X,  Y for  interpolation 

- 

NY 

Number  of  Y data  points 

- 

TABX 

X array  of  data  points 

- 

TABY 

Y array  of  data  points 

- 
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PXniTlAl 


WAMF 


UNITS 


\ 
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3.3.7  Subroutine  INTERr  - Listinj 


: 


r 


SUBROUTINE  INTERP(  X , TABX , TAtAY , NC  , NY , Y , IND) 
DIMENSION  TABX ( 1)  , TABY ( 1) ,NPX( 8) 
IDX=(NC-(NC/100) *100)/10 
I ND=  0 
XA=X 

CALL  DISLRl( XA,TABX, 1,NY, IUX,NPX, IND) 
NPXl=NPX( 1 ) 

I F ( ( NC- I DX* 1 0 ) . LQ. 1) IDX=-1 
I F ( ( NC-I DX* 1 0) . t.Q.  2 ) I DX=-2 

CALL  LAG RAN ( XA , TABX ( N PX1 ) , T A D Y ( NPXl)  , IDX  + 1 , Y) 

RETURN 

LND 


h 

f> 

r* 

r/ 

i «• 
h 


f 


8.4  DISER1  Subroutine 


The  subroutine  DISER1  returns  the  array  location  of  the  lower  bound 
value  of  the  interval  in  which  the  independent  variable  lies.  DISER1  is  a 
modification  of  a MCAUTO  library  subroutine  named  DISSER,  (Reference  (7)). 

The  arguments  for  the  DISER1  subroutine  are  as  follows: 

Subroutine  DISER1  (XA,  TAB,  I,  NX,  ID,  NPX,  IND) 

XA  - Independent  variable 
TAB  - X array 

I - Tabulated  data  location 

NX  - Number  of  points  in  the  independent  array 
ID  - Degree  of  interpolation 

NPX  - Location  of  lower  bound  for  data  point  XA,  in  the  TAB  array 
IND  - Indicator 

8.4.1  Solution  Method.  Not  applicable 

8.4.2  Assumptions . Not  applicable 

8.4.3  Computations . On  entry  of  the  independent  variable,  XA,  and  the  tabu- 
lated data  form  the  TABX  array,  DISER1  finds  the  tabulated  data  values  that 
bound  XA,  and  returns  the  smaller  one  to  the  calling  program.  If  XA  lies 
outside  the  lower  end  of  the  data,  DISER1  returns  the  first  data  point  as 
the  lower  bound.  Should  XA  lie  outside  the  upper  tabulated  value,  the 
second  from  the  last  data  point  location  is  returned  by  DISER1. 

8.4.4  Approximations . Not  applicable 

8.4.5  Limitations.  Not  applicable 


8.4.6  DISER1  Variable  Names 


IND  Solution  indicator 

I,  ID,  IT,  J,  NLOC, 

NLOW,  NPB , NPT , NPU,  Integer  counters 
NPX,  NUPP,  NX,  NXX 


Units 


Array  of  independent  variables 


Indenendent  variable 
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8. A. 7 Subroutine  DISERl  - Listin; 


SUBROUTI  NL  DISERl  ( XA  , TAB , I , NX  , I D,NPX,  I M D ) 
DIMENSION  TAB(l) 

I F ( XA-TA3 ( I )) 71, 73, 72 

71  IND=IND+1 
N P X = I 
RETURN 

7 3 XA=TAl3  ( I ) 

N P X = I 
RETURN 

72  J=I+NX-1 

I F ( XA-TA3 ( J ) ) 1 , 77, 76 

76  I ND= I ND+ 1 
NPX=J-ID 
RETURN 

77  XA=TAB( J) 

NPX= J- I D 
RETURN 

I NPT= 1 0+1 
NPB=NPT/2 
NPU=NPT-NPB 
IF(NX-NPT) 4,5,10 

4 I D=NX- 1 
GO  TO  1 

5 N PX= I 
RETURN 

10  NLOW=I +NP3 

NUPP=I+NX-( NPU+l ) 

IF ( NX-20) 13,13,11 

II  NXX=NX/2+I 

I F ( XA-TAB ( NXX)  ) 12, 17,  13 

12  NXX=NXX-NX/4 

IF ( XA-TAB (NXX) ) 13, 17, 17 

13  NXX=NXX+NX/4 

I F ( XA-TAB ( NXX ) >14,17,17 

14  N LOW  = NXX- NX/4 
GO  TO  13 

17  NLOW=NXX 

18  DO  19  I I=NLOW , NUPP 
N LOC  = 1 1 

I F ( TAB ( II)-XA) 19, 20, 20 

19  CONTINUE 
NPX=NUPP-NPB+1 
RETURN 

20  NPX=NLOC-NP8 
RETURN 

END 


I 
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8. 5 LAGRAN  Subroutine 

The  LAGRAN  subroutine  interpolates  or  extrapolates  a data  point  from  two 
known  tabulated  values.  In  addition,  LAGRAN  calculates  viscosity  using  a 
modified  Walther  equation.  The  LAGRAN  subroutine  arguments  are 
Subroutine  LAGRAN  (XA,  X,  Y,  N,  ANS) 

XA  - Independent  variable 
X - X array 

Y - Y array 

N - Degree  of  interpolation 

ANS  - Dependent  variable 

8.5.1  Math  Model.  LAGRANGES  interpolation  equation  is  used  in  this  sub- 
routine to  calculate  the  dependent  variable.  The  LAGRANGE  formula  is 

m 

P (x)  = Z L (x)  y (2) 

i=0 

where 

L^  (x)  is  the  Lagrange  multiplier  function. 


(x-xQ)  (x-x^  ' ' ' (x-xi_1)  (x-x1+1) 
Li  ^ " (X^-Xq)  (xrx,) 


• (*-xn) 


i V 


(xrxi-i)  (xi-xi+i)',,(xrxn) 


(3) 


The  LAGRANGE  equation  generates  a polynomial  between  two  data  points. 
The  degree  of  the  polynominal  is  that  specified  by  the  index  value  n.  The 
dependent  variable  is  returned  as  ANS  in  the  subroutine  argument. 

A modified  version  of  the  Walther  equation  taken  from  Reference  (8)  is 


used  in  the  calculation  of  viscosity.  The  ASTM  charts  are  based  on  this 


equation. 

LOG  [LOG  (v+c)]  = A LOG  °R  + B 


(A) 


where 


c = a constant 
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°R  = Temperature,  “RANKINE 
v = Viscosity,  cSt 
A,B  = Constants  for  each  fluid 
LOG  = Log  to  the  base  10 

The  ASTM  chart  expresses  c as  a constant  varying  from  0.75  at  0.4  cSt  to  0.6 
at  1.5  cSt  and  above. 

8.5.2  Assumptions . The  Lagrangian  equation  generated  by  the  subroutine  only 
uses  the  data  points  around  the  dependent  variable  to  generate  a polynomial 
for  interpolation.  The  last  or  first  set  of  two  data  points  is  used  for 
extrapolation.  The  equation  used  to  determine  the  viscosity  uses  a constant 
factor  that  is  applicable  to  viscosity  values  of  2 centistokes  or  more. 

8.5.3  Computation.  The  procedure  LANGRAN  performs,  whether  it  be  inter- 
polation or  the  viscosity  calculation,  is  always  recognized  by  testing  the  n 
argument  in  the  subroutine  statement.  If  n is  equal  to  zero,  then  the 
viscosity  is  calculated  using  the  modified  Walther  equation.  Otherwise  n 
specifies  the  degree  of  interpolation  to  be  used  by  the  Langrange  formula. 
Both  results  are  returned  to  the  calling  program  through  the  variable  named 
ANS.  The  LAGRAN  interpolation  is  a direct  application  of  equation  (2)  to 
the  given  data. 

Before  evaluating  the  viscosity  equation  (4)  for  the  viscosity  value 
at  XA  temperature,  the  constants  A and  B must  be  calculated.  They  are 
determined  using  the  data  points  that  surround  the  dependent  variable,  or  the 
first  or  last  set  of  two  data  points  if  the  dependent  variable  lies  outside 
the  range  of  the  tabulated  data.  With  the  constants  calculated  for  this 
fluid  the  viscosity  can  be  computed  from  Equation  (4). 

8.5.4  Approximations.  In  the  viscosity  calculation,  0.6  was  used  as  a 
constant  factor  for  all  ranges  of  viscosity. 
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8.5.5  Limitations.  Since  the  LAGRANGE  method  only  uses  two  data  points  to 


interpolate  it  can  become  inaccurate  for  remotely  spaced  tabulated  data 
points.  Any  degree  of  interpolation  greater  than  two  can  lead  to  erroneous 
results. 

For  the  viscosity  equation,  any  computed  value  of  viscosity  less  than 
two  centistokes  cannot  be  considered  accurate,  and  should  be  weighed  in  the 
final  results. 

8.5.6  LAGRAN  Subroutine  Variable  Names 

SYMBOL  NAME  UNITS 


A 

Constant  for  viscosity 

— 

ANS 

Dependent  variable 

- 

B 

Constant  for  viscosity 

- 

I,J 

Integer  counters 

- 

N 

Method  of  solution 

N = 0 Viscosity  calculation 

N > 0 Degree  of  interpolation 

PROD 

Lagrange  partial  product 

- 

PI 

LOG  LOG  of  (Y (1)  + C) 

cSt 

P2 

LOG  LOG  of  (Y (2)  + C) 

cSt 

T1 

LOG  of  T(l) 

°R 

T2 

LOG  of  T (2) 

°R 

X 

X-array 

- 

XA 

Independent  variable 

- 

•«¥•  •*>>* 


8.5.7  Subroutine  LAGRAN  - Listin; 


SUO  ROUT  I IE  LAGRAN  ( XA  , X , Y , N , AKS  ) 

DIMENSION  X( 1) , Y( 1) 

IF(N.EQ.-l)  GO  TO  20 
IF(N.EQ. 0 ) GO  TO  10 
SUH=0. 0 
DO  3 I = 1 , N 
PROD= Y ( I ) 

DO  2 J=1,N 
A = X ( I ) - X ( J ) 

I F ( A ) 1,2,1 

1 3= ( XA-X ( J ) ) /A 
PROD=  PROD*  3 

2 CONTINUE 

3 SU.>=SUtl  + PROD 
AN3  = 3 UN 
RETURN 

C VISCOSITY  CALCULATION 

10  CONTINUE 
A1  = 0. 

I F { Y( 1) . LE. 2. )Al=EXP(-l. 47-1. 84* Y( 1)-. 51*Y( 1) **2) 

A 2 = 0 . 

IFfY( 2).LE.2.)A2=EXP(-1.47-1.84*Y(2)-.51*Y( 2)**2) 
Pl=ALOG 10( ALOG10(Y( l)+.7+Al) ) 

P2=AL0G1Q( A LOG 1 0 ( Y( 2)+.7+A2) ) 

T 1 =A  LOG 1 0 ( X ( 1 ) +460. ) 

T2=ALOGl 0 ( X ( 2) +460. ) 

3= ( Pl-P2)/( T2-T1 ) 

A=?1+3*T1 

Z = 10**( 1 0*  * ( A- 3* A LOG 1 0 ( XA+460.  ) ) ) 

IF( Z . LE. 2. 7 )GO  TO  11 

ANS=Z- . 7 

RETURN 

11  ANS=( Z-. 7)-EX?( -. 7487-3. 295* ( Z-.7)+. 6119* ( Z-.7 ) **2 
+ — . 3193* ( Z— . 7) **3) 

RETURN 

C FLUIDE  CALCULATION 

20  CONTINUE 

Pl=ALOGl 9 ( ALOG1 0( Y( 1 ) + . 6 ) ) 

P2=ALOGl 0 ( ALOG 1 0 ( Y( 2) +. 6) ) 

T 1 =ALOGl 0 ( X ( 1 ) + 4 6 0 . ) 

T2=ALOG10( X( 2) +460. ) 

3= ( Pl-P2)/( T2-T1) 

A=P1+3*T1 

V0=10**( 10** ( A-3*ALOG10( XA+460. ) ) )-.6 
T 5 = 1 0 * * ( ( . 1 25939+A ) /3 ) 

T1000=10**( (-.477159+ A )/B) 

3=ALOGl 0 ( (T5)/190.+l. )-ALOG10( (T1000)/100.+l) 
DELX=65. 10979*3 
3=6. 65/DELX 

ALPHA=3. 23523-11. 3836*3+13. 1 7 3 5*3 *3- 4 . 9 8 3 1 *3*3 *3 

3ETA=- 5 . 33425+19.9521*3-23.0448*5*3+10.155*3*3*3 

CH 1=3. 354 5 2- 13. 127 3* 5+ 17. 171 2* 3* 3- 7. 6551*5*3*3 

\NS=ALPHA+3ETA*ALOG10( V0J+CHI* ( ALOG10( V0) ) **2 

I F ( ANS. LT. 0. ) ANS=0 

RETURN 

END 


\ 
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Dynamic  Response  of  Fluid  Lines 

The  use  of  hydraulic  transmission  lines  in  automatic  control , liquid  pruju  < 
and  other  systems  requires  accurate  knowledge  of  their  dynamic  response.  In  ' : • '•  ' 

the  effects  of  fluid  viscosity  and  compressibility  are  included  to  derive  true  fer  f:<  • > 

relating  the  pressure  and  velocity  variables  at  the  tuo  cross  set  lions  oj  : lire  7 >.e  •< 
suits  of  theoretical  analy  ’s  are  compared  with  experimental  data  obtained  from  fre 
quencx-rcsponsc  tests.  7 analysis  includes  the  significant  effect  on  the  dynamu  re 
spouse  caused  by  the  natural  frequency  of  vibration  of  the  line  in  the  longitudinal 
direction.  It  is  shown  that  in  small-diameter  lines  the  viscous  effects  cannot  be  nr> 
lected.  The  theoretical  analysis  may  be  used  to  improve  the  performance  of  systems 
incorporating  hydraulic  networks. 


Introduction 

Tin-,  purpose  nf  early  investigation  on  unsteady  thud 
II* i w in  straight  pipes  was  t« » analyze  the  surging  phenomena  »>r 
a. iter  hammer”  i ri  power  plant*  employing  large-diameter  con- 
duits arid  to  determine  the  velocity  of  sound  in  the  fluid.  The 
classical  work  was  done  by  Jotikowski  [l)1  and  Allievi  (2)  around 
P.HH).  More  recently,  unsteady  flow  in  small-diameter  pipes 
plavs  a major  role  in  liquid-propellant  rocket  s\  stems,  hydraulic 
and  pneumatic  control  systems,  the  circulation  system  of  the 
blond,  and  elsewhere.  Kzekiel  and  Pay n tor  [d|  obtained  ordinary 
differential  equations  in  hyperbolic  operators  relating  pressures 
and  flows  at  two  cross  sections  of  a hydraulic  line.  Oldenburger 
and  Donclson  1 11  verified  the  validity  of  these  equations  in  tests 
at  the  Tennessee  Valley  Authority  on  a hydroelectric  installation 
with  an  K-mile  ls-ft-dia  tunnel.  Regetz  [">1  at  the  National 
Aeronautics  and  Space  Administration  Lewis  Research  Center 
did  the  same  for  a 1-in-dia  line.  Oldenburger  and  Coodson  (h| 
simplified  the  Paynter  equations.  In  most  of  the  studies  the 
fluid  is  taken  as  nonvismus,  or  at  most  the  viscosity  effect  is 
inchulcd  in  the  form  of  pressure  loss  due  to  friction.  For  smaller 
diameter  lines  the  doji  viscous  water-hammer  theory  fails  to 
agree  accurate!)  with  experiment  (7]. 

Walker,  Kirkpatrick,  and  Rouleau  [s|  added  a viscosity  term  due 
to  the  velocity  grad  ent  in  the  direction  of  flow,  but  neglected  the 
gradient  across  the  tube  cross  section.  Their  results  are  ap- 
plicable to  the  wave  motion  in  a viscous  fluid  outside  the  bmmd- 
ar\  la\cr  and  do  not  explain  the  internal  flow  in  a pipe  where  the 
viscous  effects  of  the  boundary-layer  shearing  of  one  fluid  layer 

1 N urn  Iters  in  brackets  designate  References  at  end  of  paper. 

Contributed  by  the  Hydraulic  Division  and  presented  at  flic 
Winter  Annual  Meeting,  Philadelphia.  Pa..  November  17  22,  lOU.'t. 

Of  Tin.  VWFlIM  AN  SoriKTV  OK  M K.CIIANU’M.  1 V.tNKl  Its  M .intlMTlpt 

leccivcd  at  ASM  I Headquarters.  July  22,  lul’.M  Paper  No.  li.'t 
WA-T.T 


on  mother -are  of  a much  larger  ••filer  of  magnitude.  He*'  of 
a viscous,  incompressible  fluid  has  born  treated  l*v  1 «-hi*la  '* 
negl'1  ting  the  variations  of  the  pressure  gradient  anil  \el*.*it\ 
along  the  length  of  the  pipe  as  in  this  ease  the  vel*  **f  pr**p.i- 
gati'U  of  disturbances  in  the  fluid  is  infinite.  Hrown  Pi  l*;w 
tre:i' ■ d a compressible  fluid  but  also  has  neglect ed  the  \ iri  ' f i* - ns 
of  tf  • pressure  gradient  and  velocity  along  the  length  of  f!  < line 
[see  • [nations  (fib)  and  (.r>7)  of  Hrown].  1 his  tlieorv  is  \:did  for 
an  infinite  or  long  line. 

1;  lint  properl v accounted  for.  the  dynamics  of  small-diameter 
hydraulic  lines  may  cause  combustion  instability  in  roekets  or 
unsatisfactory  performance  elsewhere.  It  is  the  objective  of  fi.is 
paper  to  derive  transfer  functions  of  hydraulic  net w. irks  em- 
ploy ing  small-diameter  pipes,  so  that  their  performance  ma\  he 
corn  • tly  and  easily  predicted  and  the  design  of  the  s\<i,  m^  in- 
corporating them  improved. 

The  Basic  Differential  Equations 

Assumptions 

Tin  following  assumptions  are  m.ide 

(i  The  elasticity  of  the  pipe  walls  ma\  be  uegle*  '•  i am-  i 
pared  with  the  rompressibilit y of  t he  |lm«i  \s  >1  ;■  *w  ii  i n \ppeo*h\, 
1,  this  is  a fairly  good  assumption  for  small- ban ••  tei  pipe** 

(ii'  The  temperature  variation?*  an  »*  ill  eicugh  *•■<  that 
fluid  . iscosity  may  be  considered  be  « • 'isianf 

(in  \ The  velocity  and  the  change  of  ill  dependent  in. Me  - 
in t lie  0 (circumferential)  direction  an  negligd  • •he*  t*»  r<  ’ • 
tional  symmetry. 

(jv  The  flow  is  laminar.  Tl* »*•  i-.-*ir  pti-n  in  ;•  >*•*.  lh  u the 
Rc\  n Ids  number  is  about  2(Hili  or  1'^ 

Differential  Equotions 

It  h convenient  to  use  c\  lindri*  al  dm:M>  w s.  ;-;i\  - is 
idem  died  with  ihc  center  line  *.f  1 1 ••  pip*  is  sj|.»w  n in  I-  ig  \ I 
r lx  'lie  coordinate  in  the  radial  diie*'i**n  and  ( denote  line 


— 

Nomenclature 

a 

inside  radius  of  tube 

a, («) 

constant  of  integration 

n 

defined  b\  equation 

.!(.<) 

= 

constant  of  integration 

IUs) 

constant  of  it  * • gration 

P 

- pres: -u re  deviation.  /*  r.  r, 

.1, 

rs 

inside  eross-see tional  area  of 

r 

speed  of  souii'l  in  fluid 

V 

,.|n*«*'  S«ft  intt  tl  avi-  !ge  pro**- 

pipe 

E 

modulus  of  el  i ticity  of  pipe 

sure  deviation.  [>•  r . / 

.1: 

cross-sectional  area  of  pipe 

fU.t) 

~ defined  by  eq  l ition  ( IS! 

f‘(r,  *i 

I .a  pi  o r transfoi in  of  p ■ . ; 

wall 

(i(t) 

transfer  matr\ 

• 1 

th  in  •«  1 bv  equal i**n  ib 

• li 

a 

area  of  orifice 

h 

wall  thickness  f pipe 

Q 

vnlu"ie 

h 

* 

.speed  (if  Round  in  material  nf 

j 

% - 1 

r 

r Mor-hnatr  m f di 

pipe  wall 

«/  0,  d l 

Hcssel  fund  i i *»  of  first  kind 

lion 

her,  bei 

a- 

Tlmmsnn  function!*  of  lirnt 

K 

= bulk  modulus  of  liquid 

.« 

K*i pi  tee  variable,  tmnsfnr- 

kind  and  order  zero 

K, 

defined  by  equation  (211) 

m.dion  with  r«*s|H**l  t** 

lipr',  Iwi' 

** 

first  derivatives  of  her  and 

1. 

=»  distance  betv*  n sections  l 

time 

bei 

and  2 

t 

t mu* 

constant  of  integration 

VI 

■=  mass  of  orifit  Mock 

C onttnu  l i rtrji 
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du  du  du  dp 

p T7  + u h t'  — 

dt  dx  dr  J dx 


+ M 


' 4 

D*u  d-u  1 du 

1 0 

( dv  !'\1 

— 

~ + ’ - — + 

- — 

- + ) 

.3 

dx * Dr*  r Dr 

3 dx 

r ) J 

Equation  of  Motion:  r-Direction 

bp 

dr 


dv  dr;  Dr'”l  dp 

p - -f  m - + t 1=“  — 

L dt  dx  dr  J dr 


_4  d'v 

4 

1 dr 

4 V d | 

f 1 do 

.3  dr>  + 

3 

r dr  ~ 

3 r>  + dz 

^ 3 Dr 

+»v\ 

Continuity  Equation 


dp  dv  v du  dp  dp 

-«'  + pA+p'+p;r+t’v  + ur  = 0 

dt  dr  r dx  dr  dx 


Equation  of  State  for  a Liquid 

dp  dp 
P A' 


i’  •fleeted  when  compared  with  t lie  other  hTius  I m*  -•  i » • . j . • .-.ri 
may  be  justified  on  the*  ground  that  the  milk,  modulus • f«»r 
liquid  is  of  the  order  of  300  X 10*  psi. 

With  the  foregoing  assumptions  equations  1 t . # \ r«  -iu«*  to 

the  following  two  differential  equations: 


du  dp 

p — = — -r 

dt  dx 


~d-u  1 d ■' 

P + 

_dr-  r dr  _ 


The  deviations  of  the  velocities  in  the  x and  r-directions  from 
their  steady-state  values  are  denoted  by  v(x,  r,  t)  and  v(x,  r,  t ), 
respectively,  and  the  deviation  of  the  pressure  by  p(x,  r,  t).  Let 
p designate  the  fluid  density,  p the  absolute  viscosity,  v the 
kinematic  viscosity,  and  K the  fluid  bulk  modulus. 

The  complete  Navier-Stokes’  equations  in  cylindrical  coordi- 
nates are  given  by  Pai  [11].  With  the  foregoing  assumptions, 
these  equations  for  the  deviations  are  simplified  and  given  in  the 
following  text. 

Equation  of  Motion:  x-Direetion 


1 dp  dr  V d i 

' *f  f ~b  ~ t) 

/v  dt  dr  r dx 


(ft) 


(«) 


If  in  equation  (."»)  p IS  assumed  to  be  7.ero,  ihe  e,|ini  inn  i « die  es 
to  the  b:isic  water-hammer  equation  <>f  reference  [ « » J . 

Solution  of  Differential  Equations 

We  define  p as  the  average  pressure  and  u as  the  average 
v«  ioeitv  in  the  T-direotion  across  the  tube  cross  seetion;  i.e  . 


va'-fni 


and 


7 rulu{ii 


(1) 


-r- 
-■  /;= 


lirrpt/r 


iirrudr 


(2) 


(3) 


(!) 


where  a is  the  internal  radius  of  the  «ubo. 

Prom  assumption  (i),  it  may  be  noted  that  p --  p. 
bet 

U{x,r,s)  = L[u<x,r,t)\ 

ami 

P{x,  s)  = L\p*xt  <)) 

Tuking  the  Laplace  transform  of  both  sides  of  equation  (.r») 
w it h zero  initial  conditions,  i.e.,  utx,  r 01  - 0 and /)(/,  0)  = 0,  we 
get 


dH 

Jr* 


r 1 dC  s 1 df>\ 

“i — . — ( *■  ) ~ 

1 r Or  v \ pa  dx  / 


0 


! < t V be  defined  by 


Tlie  following  further  assumptions  are  made: 

(i)  Since  n » v,  we  neglect  equation  (2).  Neglecting  this 
equation  implies  that  the  pressure  is  constant  across  the  cross 
section  of  the  tube  ami  heroines  a function  only  of  j and  t. 

(ii)  As  shown  in  Appendix  2,  du/dt  » u(du/dx)  and  du/dt  » 
v(du/dr).  Hence  in  equation  (1)  the  nonlinear  convective  ac- 
celeration terms  on  the  left-hand  side  may  be  neglected. 

(iii)  It  is  also  shown  in  Appendix  2 that  the  only  important 
viscous  terms  on  the  right-hand  side  of  equation  (1)  are  d2u/drt 
and  (1/r)  du/dr.  The  other  viscous  terms  in  that  equation  may 
be  neglected. 

(iv)  In  equation  (3),  the  terms  v{dp/dr)  and  u(Dp/Dx)  may  be 


T = T f 


1 df> 


(7) 


vM 


pa  0/ 

Substituting  for  V of  equation  (8  in  •'(pint ion  (7 ),  w c obtain 

d*V  1 dV  * 

+ - - l = t) 

dr * r Or  v 

The  foregoing  equation  has  only  ore  solution  which  is  finite  at 
r - 0 and  this  is  given  h\ 


V = /(/, 


f,H>r(0  ]f 


Nomenclature 

u = deviation  of  velocity  com- 
ponent u(z,  r,  t)  in  z-direc- 
tion 

u = deviation  of  crnsB-scctinnal 
average  velocity  ti(z,  l)  in 
z-direction 

C(z,  s)  = Laplace  transform  of  ii(z,  t) 
v = deviation  of  velocity  com- 
ponent t>(z,  r,  I)  in  r-dircc- 
tion 


V 

z 

y 

K(z,  s) 
a 
0 
y 
5 

r 

p 


defined  b\  equation  (8) 
coordinate  in  axial  direction 
displacement  y(z,t)  of  pipe 
in  z-diiei  tion 

Laplace  transform  of  y{x,  t) 
density  of  material  of  pipe 
defined  b;  equation  (17) 
real  part  of  Q 
imaginary  part  of  Q 
coefficient  of  damping 
fluid  absolute  viscosity 


v = fluid  kinematic  viscosity 
p = ft  ml  density 
0 = r »ordinate  in  cirrutnfcren- 
tial  direction 

a;  = ficquency,  radians  per  sec 

Subscripts 

1 *=  upstream  section  1 

2 = downstream  section  2 
s = steady-state  value 
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where  J 0 is  the  Bessel  function  of  first  kind  and  order  zero,  and 
/( z,  a)  is  as  yet  an  unknown  function  of  x and  a.  Thus 

r (9) 

Equation  (9)  has  to  satisfy  the  boundary  condition  that  \J  - 0 
at  r = a.  This  will  be  true  if 

^ = ps/(x,  s)Jo  Jy'a  ^ J (10) 

Hence 

Multiplying  both  sides  of  equation  (11)  by  2irr  and  integrating 
with  respect  to  r from  0 to  a,  we  have 

° = f(1‘ s)  J>  [ja  0)  1 _ J°  K0 7 ]| 

(12) 

Similarly  multiplying  both  sides  of  equation  (6)  by  2jrr  and 
integrating  with  respect  to  r from  0 to  a,  we  get 

i an  ra  dv  ra  a a „ 

ira'  — — + 2w  I r — dr  -f-  2w  | vdr  4-  rro’  — = 0 (13) 
A at  Jg  dr  Jg  ax 


a/3 

/(x,  a)  = -4(a)  cos  — x -f  #(«)  sin  — x (18) 

c c 

where  -1(a)  and  B(s)  are  the  constants  of  integration  and  may  be 
obtained  from  the  two  boundary  conditions  on  x.  Hence 


C(x,  a)  = I 4(a)  cos  - x + B(a)  sin 


■M:n 


P(x,  si  = j^/l(s)  sin  — x — W(s)  cos  ^ x ^ 


Let  PM  and  Oi(s)  be  the  Laplace  transforms  of  the  pressure 
and  velocity,  respectively,  at  the  upstream  section  where  x = 0. 
Then  .4 (s)  and  B(s)  may  be  eliminated  from  equations  (19)  and 
(20)  arid  are  given  by 

A(,)  = Ox  — p /-y,-j 


«(s)  = - C, 


K:)1 


Integration  by  parts  yields 

r°  ; “ 

2ir  I vdr  - 2jrcr  i — 


ra  dv  ra  ^ 

2r  I r — dr  = 0 — 2?r  I r — dr 

Jo  dr  Jo  <5r 


Equation  ( 13)  is  therefore  reduced  to 
Dp  „ Du 


Taking  the  Laplace  transform  of  both  sides  of  equation  (14) 
with  zero  initial  condition,  i.e.,  p(x,  0)  = 0,  it  follows  that 

p _ _ K dO 
.1  dx 


dr  K d'O 

d---.  aT-  <15) 

Substituting  for  dP/dx  from  equation  (10)  and  for  0 from 
equation  ( 12)  in  equation  (15),  we  have 


Hence  at  asection  a distance  i from  the  upsi ream  end  the  Laplace 
transfonns  of  the  velocity  and  pressure  are  given  by  the  following 
two  equations: 

s(j  I sfi 

U(x,  s)  = U\  cos  x — l* i . sin  - x 
c pp*  C 

_ ^ fid  - fid 

P(x,  s)  = Lippcsin  x -f  * i cos  — s 
r.  c 

At  the  downstream  end  where  x /.,  th  ‘ Laplace  transforms 
of  velocity  and  pressure  are  denoted  by  Oj  and  I\  and  are  given 

by 

- _ fidL  f,  1 . fidL 

Vi  = C\  cos  — - l\  - pm  — (21) 

c ppe  c 

r ry  n *d/'  i 

P 2 = CSpr  s.n  4*  / 1 res  (22) 

c c 


d2f(x,  a) 
dx 2 


—j\, 7 ~:~v  ~v/.:  ~ 1 + - 0 

Kv)  4'-(01 


Let  (o  ) be  the  transfer  matrix  defined  by 

1 

”T  -fc 

. . sdl. 

ppe  sin  — 


1 sdL 

dpe  e 


where  e is  ( At/p)1  , i.e.,  the  speed  of  sound  in  the  fluid. 
Let  d be  defined  by 


Equa'cns  (21 ) and  (22)  are  expressions  n hating  variables  of  a 
four-tern  inal  network.  In  matrix  form,  the-  are  given  by 


ia{j) 


M 


r'l . \rJ 
r\\  1 r,\ 


Equation  (16)  now  becomes 

dx 1 c’ 

The  solution  of  the  foregoing  equation  is  given  by 
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Frequency-Response  Equations 

From  *he  transfer  matrix  equation  t ‘2*4 ) uhieh  represents  the 
dynamic  « haraeteristirs  of  the  line,  we  get 

C,  fi*U  1 dL 

r errs  — f • Pin  — 

U\  _ r*_  c ape  r 

px~  ~ fid//  c,  . ar. 

cos  — r ppe  sin 

c /’*  c 
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From  equation  (l?'-*),  we  have 

A 
A 


A S0L  Ox  Q sftl. 

= cue  + - ppr  sjii 

c l\  r 


Substituting  for  V\/l\  in  the  foregoing  equation  fr>>m  equation 
(21)  and  simplifying,  we  obtain 


A 

A 


S/3L  £72  s/j/y 

cos  — — - ppr  sin 
c /*«  c 


(25) 


For  f requenej'-responae  analysis  5 = 70?  and  it  follows  that 

1 


-0 


. j ,1 


lienee 


2 *•"  * 

v’  /uN 

+ J hci,  a ( 

Vi  ~l 

_■( 

+ j |,pi " (r, 

, , - 1 

where  her  and  bei  are  Thomson  functions  of  the  first  kind.2  Now, 

/«v*  1 r.  , m,/*  , .,  mi/h 

beri  nil  = , her  a ( J — bn  nil 

W \/2L  V*-  / W J 

(;)  - v-j  [l,,,r'“0)  +lM,'n 

where  the  prime  denotes  differentiation,  lienee 


I qua t ions  (27)  and  (2*  are  the  desired  frequency-response  » qua- 
1 ions. 


Experimental  Test  Setup 

'’Flie  experimental  data  uh  d in  tins  an:d\-i-  m*  obtained  from 
fiequn»ey-n*sp<»nse  tests  on  a line  coiimnI ing  of  1 stainless  -tri  1 
tube  of  0.4!)5-in.  ID  and  O.Ob.Vin.  wall  thickness  Die  tots  wen 

• irried  out  in  the  Automatic  Control  kalmralon  -t  t h» • S<  i ■•••  t 
Mcehanieal  engineering.  I’urtlue  Cniversitv  I’he  themi-ti*  d 
analysis  is  based  on  tin*  assuinplioii  that  the  llutd  vi*e«i*»it\  1- 

• '■nHtunt.  In  the  rase  of  non-Newtonian  fluids,  1 li«*  elb<tiv« 

\ iscosity  is  a function  of  the  shear  rale  and  t herefore  1 hang'-s  w it  ii 
1 lie  steady-state  How  and  the  internal  pip*’  radius  For  a lit  a*  of  a 
given  internal  radius,  tin1  ofifertive  viseosi»\  d 1 n<in-\’<*« toman 
tluid  may  be  easily  calculated  from  ti  e stead\  -state  pressure  drop 
f»*r  each  steady-state  How  condition  If  the  llow  deviation  from 
its  steady-state  value  is  small  enough  or  if  1 lie  tluid  is  onl\  slightb 
i:  *n-New toiiian,  the  change  of  tie-  «,H««tivo  vi»*eositv  resulting 
from  the  llow  deviation  may  be  neglected  and  it  tnav  I"  < "ii- 
sidered  to  be  constant  for  a given  ■•leadv -stale  llow  . ••hditmii. 
I lie  theory  developed  in  this  anahsis  m.t\  Ui«*n  I"-  applied  to 
non-Newtonian  fluids.  H\«lraulie  oil  Mil-0-5ii(it>.  which  - :i  n<*i.- 
N**w  tonian  fluid,  was  supplied  to  tin * u-<i  line  through  an 

• I *etroh> ‘Iraulie  servovalve  near  section  I and  the  oil  discharged 
to  atmosphere  through  a sharp-edged  orifice  n«  ar  section  2 Tl  « 
pressure  deviations  I\  and  were  measured  b\  pro>surc  trans- 
ducers and  the  velocity  deviations  r \ and  / b\  hot-wnc  ane- 
mometers, and  the  results  were  read  on  a transfer  function 
analyzer.  The  schematic  diagram  of  the  experimental  >•  tup  is 
shown  in  Fig.  2 and  the  details  are  given  In  Huberts  (7|.  Theliii** 
and  fluid  ph\ sical  constants  are  given  in  I il d*-  1 

For  f he  frequency- response  runs  malv/od  here,  the  rang*  < t 
1 -it  frequencies  was  from  l to  1(HI  ■ ps.  I lie  amplitude  i'« 
signal  input  to  the  servovalve  was  k • • j »t  constant  throughout  tl  • 
frequency  range.  The  steady-state  pressure  at  seHinn  I was'J'J  • 


The  Thomson  functions  of  zero  order  and  their  first  derivatives 
are  extensively  tabulated  by  Nosova  [12].  Using  these  tables 
and  an  electronic  digital  computer,  the  values  of  ft  were  calcu- 
lated for  different  frequencies  of  interest  and  may  be  found  in 
reference  (13|.  It  may  lie  noted  that  ft  is  a complex  function  of 
the  frequency. 

Let  ft  ~ y + jb  where  y is  the  real  part  and  5 t he  imaginary 
part  of  ft.  For  very  high  frequencies  y tends  to  zero  and  5 to  — 1 
so  that  ft  tends  to  — j.  If  ft  = —j  then  the  viscous  theory  yields 
the  same  results  as  the  nonviseotis  water-hammer  equations  of 
reference  [0].  Therefore  the  dynamics  of  the  fluid  How  arc 
characterized  by  the  parameter  a (w/v)  . 

Substituting  for  ft  in  equations  (24)  and  (25)  with  s = jeo,  we 
get 


psig,  the  steady-state  flow  1 V gpm  1 1 e.,  the  slcad> -state  vcl««  it\ 
was  3.1  fps),  tin*  l’cyiiolds  number  ('»  .(),  and  the  t<  mperature  was 
ie  Id  nearly  constant  at  b3  deg  F.  At  1 rps  the  amplitude  <»f  the 
sinusoidal  pressure  deviation  at  sect  in  1 was  50  psi. 

The  values  of  the  steady -state  pressure  and  flow  f..r  the  line 
and  outlet  orifice  used  for  the  runs  are  shown  in  Fig.  3.  Steady* 
sf,itc  pressures  at  sections  1 and  2 nr**  denoted  bv  /*,  and  /\:,  re- 
spectively. 

Theoretical  and  Experimental  Comparison  Using  a 
Boundary  Condition  Without  Line  Vibration 

The  upstream  end  id  (he  line  was  hulled  tu  a steel  hlurk  Mip- 
p.  rlinc  (he  servuvalve  and  the  hint  k was  sec  utvh  fastened  t"  (he 
Ilnur  The  line  w:e-  siippurled  at  every  11  fl  mi 


Ci(jw) 
Pi  l jo)) 


C,(;w)  01L  , 1 oil.  , 

r - — cos  — (-4  + }y)  + — sin  - - ( — 4 •+-  .r> ) 

P,(ju)  c (y  + }i)pc  t 

Qi(  jo))  „ co/> 

ens  — (-4  + J7)  ~ -By.-,  pe  (7  + ji)  S">  ~ + ■’’’ ) 

c Pt  (;“)  c 


(27) 


Piijui) 

Pt(ju) 


w/. 


P,(ju>) 


uL 


(-  4 + jy)  - -fT-.— : pc (7  + >4) sin  — (-4  + j y) 
Piiju)  c 


(28) 


St  \ n foam  bl<»«  ks  and  sarulbags  were  placed  > • 1 1 
the  top.  Tlie  down-*! ream  end  of  1 1 m * line  w - 
cxililiocted  through  t*  r orilna*  blm  k to  1 1 n*  outlet 
tank  by  a short  length  of  h"*c  The  upstre.im 
end  could  then  be  considered  as*  fixed  and  the 
downstream  end  wa>  relatively  free  to  move  in 
the  axial  direction,  but  the  lowest  natural  fn - 
quenev  «»f  longitudinal  vibrations  of  tin  line 
was  much  alnivt  the  experimental  frequeiiiA 


* For  order  tero,  the  subscript  is  omitted  in  notations  for  Thomson 

functions. 


range. 

The  experimental  values  of  the  in  guitude  and  phase  angle  of 
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Fig.  2 Schematic  diagram  of  <e*t  setup 
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Table  ) 

('"tisUint 

(i  nnlitiH  «,f  t »»!*<• 

/.  lon^tli  of  line  l»i*l  wren  sort  ions  1 -it**  i 
r-  velocity  of  sound  ill  fliiiil  lex|>erimoiital) 
p density  of  Huiil 

i hineiiiniie  viscosity  of  fluiil  (effective 


11.1121  MiJ.'i 

■Id  2.7  ft 
12. 'il  i fps 
1 663  Hi  si 
IU7  X HI 


\ : 1 1 1 li- 
ft; if 


-•-ft' 
* ft’/ 


II  21' 


U, h„  2:1, 11)11  Ibscr/fl1. 

SllllSliMltillg  III  I'iltllt -llllll'l  Mill’  "f  I-I  l>  lit  l" 
front  equation  (211),  il  follotts  that 


ill. I 2' 


I 

jui)  _ A 1 

Pi(ju) 


ill. 


(-6  + jy  i 


,1. 


'1 


ib  .pi 


< — o T J 7 


2 3 

FLOW,  GALLONS  PER  MINUTE 


Fig.  3 Sfeady-stote  pressure  versus  flow 

Pdjw) 

f,(j31.41)/ft(j31.41) 

an-  shown  in  Fip  4.  The  ratio  C^jai)//5;!  jw)  is  normalized  b> 
dividing  it  by  C,(;  31.41  )/(A(j  31  41)  which  is  the  experimental 
ratio  at  5 ops;  i.c.,  w -=  31.41  radians  per  soo 

It  m observed  from  Fig  I that  the  r.i.iKnitu.l.-  is  approximate!' 
ions  taut  and  the  phase  angle  is  almost  negligible  tor  tin-  experi- 
mental frequency  range.  Hence  it  may  bo  assumed  that 


c. 

p , 


1 

Ko 


dP il 
dQ 


: 206  lb  min/in.’  gal 


cuHU/'(-6-f ■ jy)  - f”  n f j-f 

r At  ' 


ami 

f’:<  ju1 1 
/'ll  j«>) 


'(-i  + >7.'  - , + J5)"'"  . ( — <5  -s-  J"> 

A , c 

;ii  ■ 


(20) 


Hie  value  of  the  constant  Ko  may  be  determined  from  the 
slope  of  the  steady-stale  pressure  fV curve  in  Fig.  it  At  the 
steady-state  pressure  of  225  psi  at  section  I,  this  slope  is  given  by 


With  th.-  constants  given  previous!' , the  m -gmtude  .tin!  I" 
of  f.tjw)  Hi(  j»>  and  of  Psf  jw)  Pdju>  were  romputed  fnmi  e<pi 
lions  (30  and  (31)  for  different  frequencies  and  •"  <'  111  1 Vf 

run)  to  fit1'  The  ratio  A^w  lis  imnnniml  by  dividing  it 

by  (?,(j(i.L"<.1)/P,(j0.28:t)  wllieh  I-  Hu'  rat  a I it  lips’,  i.e  - 
li'283  riuli  ns  per  SCI  The  ex|«  rmn-ntal  ratio  has  also  I..  1 1 
reeled  for  the  frequency  responses  of  tie  Iran  dueers  themsehi  - 

which  ma  be  found  in  reference  (71.  There  >s  I agreement 

betueen  lie  I heorelieid  and  cxtsruncntal  lesidts  of  this  mv'ii 

In  lilri)  and  tithl  Ills  I sbo'V  tin-  ’ll.’ si  I HIM  ■'  I 

tallied  from  the  water-liiimuier  equations  "f  n 'eteine  |nl  II  i- 
Si  en  that  tin  attenuation  and  phase  shift  eatisi  I bv  vi-mMii  ■«> 
maximum  I the  frequencies  where  (lie  magni'ude  ratio  has  ps 
prilk.N. 

Theoretical  and  Experimental  Comparison  Using  a Boundary 
Condition  With  Line  Vibration 

For  a sei  nd  experiment  the  upstream  and  d uvnstm  ini  ends 
of  the  line  were  connected  exactly  in  the  same  manner  as  'filed 
in  the  preceding  section.  The  line  was  supported  at  every  n ft  bv 
thin  steel  win  s hung  from  steel  angles  which  wen  fastened  to  tie- 


I 

I 


' \ 
I 


1.2  ■ 
l.l  ■ 
10  ■ 
0 9 
0 8 - 


V 


•-  MAGNITUDE  RATIO 
ANGl  F 


-1 10* 

- 5* 
0* 

- -5* 
-10* 


20  30  40  50  60  70 

FREQUENCY.  CYCLES  PER  SECOND 


00 


Fig.  4 Normalized  magnitude  ratio  of  velocity  to  pressure  deviation*  and  their  relative  phase  anglo 
at  section  2 versus  frequency 


frequency,  cyci  es  per  secono 

Fig.  5(o)  Normalized  magnitude  ratio  of  velocity  to  pressu'e  deviations  at  section  1 versus  fre- 
quency 


Fig.  5(b)  Phase  angle  of  velocity  deviation  relative  to  pressure  deviation  of  section  1 versus  fre 
quency 
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angle,  degrees 


Fig.  6(a)  Magnitude  ratio  of  prtssur*  deviation  at  section  2 to  pressure  deviation  at  section  1 
versus  frequency 


Fig.  6(b)  Phase  angle  of  pressure  deviation  at  section  2 relative  to  pressure  deviation  at  sec* 
lion  I versus  frequency 


floor.  The  lowest  natural  frequency  of  longitudinal  vibrations  with  zero  initial  conditions,  i.<  , y(j,  0)  - t)  oud  |0v  /,  t)  0/ ) * — o 


of  the  line  was  now  within  t he  experimental  frequency  range. 

The  equation  for  the  undamped  longitudinal  vibrations  of  the 
pipe  is  given  by  Jacobsen  and  Ay  re  (15]  and  is 


0,  we  g<  ' 


0 hy 

on 


b2 


d-y 

Oi 2 


(32) 


u here 


d-y  _ sj 

f /jt*  b 2 


(33) 


with  b2  = E/a,  where  E is  the  modulus  of  elasticity  of  the  pipe,  a 
the  density  of  the  material,  and  y is  the  displacement  of  the  pipe 
in  the  j-direction. 

Taking  the  Laplace  transform  of  both  sides  of  equation  (32)  The  solution  of  equation  (33)  is  given  by 


V(j,  a)  -*  L[y(i,  <)] 
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F(j,  s)  = /{,(*)  cosh 


a i si  11  li 


(34) 


The  boundary  eonditioiiH  are  us  follows: 
y = 0 at  I = 0 


(35) 


dx  Ot  * Ot 


= //,(. 1 1 - .1,)  at  x = I.  (30) 


where  . ! ! is  t lie  inside  eross-seetional  area  of  tlie  pipe,  . i : the 
cross-seetional  area  of  (lie  pipe  wall,  and  . 1 1 the  area  of  the  orifice. 

The  first  term  on  the  left-hand  side  of  equation  (.10)  represents 
the  force  resulting  from  the  stress  in  the  material  of  the  pipe,  the 
second  term  the  inertia  force  due  to  the  mass  of  the  orifice  block, 
and  the  third  term  the  damping  force  caused  mostly  by  the  short 
length  of  hose.  The  term  on  the  right-hand  side  is  the  net 
pressure  force 

From  equation  (35),  we  have  lt,(s)  = 0 and  taking  the  I ,a place 
transform  of  both  sides  of  equation  (30),  wet  get 


dY 


A,E~'  (l.  s'  + mssF(/j,  s)  + fsl’l/.,  si  = P-Js)\A,  - .-1,1 

dx 


(37) 


Substituting  for  Y(L,s)  in  equation  (37:  from  equation  (31) 
it  follows  that 


/(,(«)  = 


- .lit 


s si.  , •'/.  „ . , >1. 

AiE  cosh  + m*1  stnli  + tssinli 
5 h l>  " 


lienee 


Ft/.,  si 


s |^ll 


/'a. I - .1,) 
A E 
h 


+ r + 


th 


/,■ 
ii . 


The  transfer  function  relating  the  velocity  of  the  end  of  the  pipe 
to  the  pressure  P i is  given  by 


s V(  /.,  s ) 


ms  + s'  + 


.1,  - -la 

A:E 


>th 


si. 


(38) 


For  frequency  response  s = jut  and  we  have 


jutl'i  I,,  s) 
Pl(  jut) 


.1,  - .ll 


A,E  jo>L 

jutwi  -I-  s H c«h  h 


I.ct 


.1 1 — .1 1 
A,E 


, JUtf. 

(juttn  + f)  + ."  colli  h 


n + J1 


(7i(jut)  1 

P^)-K'+n+" 


A<  jut) 


cos  — ( — A + jy) 
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Table  2 

I , inside  eross-sci  tional  area  of  pi|M*,  sq  1 1 
I, — cross-sectional  area  of  pipe  wall,  sq  ft 
—area  of  oriliee,  sq  ft 
fit  —mass  of  oriliee  block,  III  see2  ft 

. -eiiclhcient  of  damping,  lb  sec  Tt 

/'  modulus  of  elasticity  of  pipe,  psf 
h -velocity  of  sound  in  material  of  pipe,  fps 
I length  of  line  l»et  ween  sections  1 and  2,  ft 
o -density  of  material  of  pipe,  Ibsoc’/ft4 


u dill Ii.it* 
il  tllMlT'.M 
0 MOOPJl  I 
i)  135 
7 0 

:«)  X HI 

n»,snn 
in  25 
15  1 


lu« 


With  the  const ants  given  previously  the  magnitude  and  pi-  a*»c 

■ I P:(joj)/r\(ju)  were  computed  from  equation  ( 11  ) for  dilTerent 
frequencies  and  are  shown  in  Figs.  7(a)  and  7 f>),  respert i vel y 

■ long  with  the  experimental  values.  I he  figures  -Iso  show  tin* 
theoretical  curves  obtained  from  equation  (-11  ; in  the  al  -t  n c «•! 
line  vibrations  It  is  evident  that  the  natural  frequents 
vibration  of  the  pipe  in  the  longitudinal  direction  has  a marked 

( iTeet  on  the  d\ namic  response.  1 he  maximum  deviations  inj» 
n agnilude  and  phase  nceiir  near  the  natural  frequency  f longi 
to.Jinal  vibraf ions  of  the  line  which  in  this  ea**e  was  s3  cps. 


Summary  and  Conclusions 


l 'sing  the  basic  Navier-Stokes  equations,  i traiisler  matrix  is 
derived  relating  the  dynamic  pressure  arid  veloeity  tor  small* 
diameter  hydraulic  lines.  1 he  results  of  the  iheorelical  analysis 
nre  compared  with  exjierimental  dal  a obtained  from  I requeues 
response  runs  on  a Vs-in-II  > test  line. 

It  is  concluded  that  the  d\  mimic  response*  ot  small-di  uneu  r 
lines  can  be  predicted  correctly  b\  tie  viscous  theory  developed 
in  this  paper.  In  the  ease  of  Newtonian  tluids.  us  ihe  frequency 
i«id  the  diameter  *if  the  line  arc  imre  iscd.  the  visc.sitx  file-  i d* 

• *•*. uses  and  the  water-hammer  equal  mris  yield  f:url>  1 results 

f,.r  tluid  of  |ou  viseosil  \ I hen  th**  dvnami's  of  1 1 • ■ line  oc 

• I.  tract eri/.ed  bv  the  parameter  »/it*  ci  \\  hm  o' x c)  is 

-•.all,  i.c.,  when  highlv  viscous  liquid  os«  ill.iti*s  u a sm.-dl  u* 
queney  in  a small-diameter  line,  tbe  \ i.scosit  y ettect  is  not  negligi- 
ble \\  hen  n(w  p)  — • . I e , Ah'  11  a liquid  ot  low  vis  - ' ■ 

i Mates  ;it  verv  high  frequency  in  a large-diameter  tub*, 
viscosity  and  friction  may  be  neglect i d. 

In  the  case  of  noii-Newtoniaii  fluids  sm  h .us  Mil-U.»noii  and 
some  other  aircraft  hydraulic  oils,  the  ollective  \ is«  «isil  \ de. -rejises 
with  increasing  shear  rate.  I he  rate  of  shear  neies^ary  to  ' .iusc 
appreciable  change  in  viscosity,  either  transient  < r perinaneiil, 
varies  with  the  fluid.  Then  a*  the  radius  «»  dr.  rrases,  the  elTei  live 
vi-eosit  s v also  decreases  for  the  same  rate  of  llow , and  the  relative 

• lunge  in  the  parameter  a V determines  the  <*tfert  of  \ is«  -ity 

If  the  natural  frequency  of  longitudinal  vibrations  of  tbe  line 
( ills  within  the  frequency  range  of  interest,  then  the  dynamic 
response  is  modified. 
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The  values  of  n anil  q were  eninpiitc.l  fur  .lilTerent  freqiiemies 
bv  using  tbe  constants  given  in  Table  2 
The  boundary  condition  now  becomes 
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Substituting  in  the  right-hand  side  of  equation  (28)  from  equation 
(40),  it  follows  that 
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f jq  ) (7  + J&)  B‘ri  *“  ' -5  + jy) 
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APPENDIX  1 


Rigidity  of  Wallt  of  a Small-Diameter  Tube 

It  is  customary  to  include  the  effect  of  expansion  or  contraction 
of  the  tube  walls  in  the  derivation  of  the  continuity  equation  of 
water  hammer.  However,  the  assumption  that  the  walls  are 
rigid  simplifies  the  differential  equation  and  the  boundary  con- 
ditions. 

Let  AQi  denote  the  change  in  volume  due  to  the  expansion  of 
the  pipe  walls  and  AQ,  the  change  in  volume  due  to  the  compres- 
sion of  the  liquid  element.  As  shown  by  Oldenburger  |14],  A Qt 
and  AQj  are  given  by 


. „ 2jra*  dp  , 

AQi  = — Af  Aj 

hb  — (ip  dt 


and 


7raJAf  Aj: 


Thus 


AQ2  hE  — ap 
AQi  ” 2Ka 


For  a stainless-steel  tube  of  ‘/a-in.  ID  and  Vu-in.  wall  thickness 
carrying  a fluid  at  a pressure  of  about  3000  psi,  typical  values  of 
the  constants  appearing  in  equation  (42)  are  tis  follows 

E — modulus  of  elasticity  of  tube  = 30  X 10°  psi 
K — bulk  modulus  of  the  fluid  = 0.3  X 10e  psi 
a — inside  radius  of  tube  = l/«  in. 
h — thickness  of  the  tube  walls  = Vu  hi. 
p — pressure  = 3000  psi 

Substituting  the  values  of  these  constants  in  equation  (42),  v\e 

get 


If  we  consider  a tube  of  l/«-in.  I D and  */u-in.  wall  thickness,  then 


AQ7 

AQ, 


Hence,  in  small-diameter  tubes  the  magnitude  *>f  the  effect  of 
tic-  compressibility  of  the  liquid  is  much  more  than  the  effect 
< f the  elasticity  of  the  wall,  which  may  be  assumed  to  be  rigid 
Jf<  wever,  the  theoretical  speed  of  sound  can  be  modified  by  the 
pi  »per  amount  to  account  for  the  elasticity  of  the  walls. 


APPENDIX  2 

The  linearization  of  equation  (1)  by  neglec  ting  the  convert  tve 
u<- coloration  terms  iH  justilied  by  the  following  argument: 

Let  L be  the  charac  teristic  length  along  the  axis  of  the  pipe,  U 
the  characteristic  velocity,  and  c the  speed  of  sound  in  the  fluid. 
Then  wo  have 


u 


- 0 
d.r  = 


U 1 
L 


and 


da  V 

(I 

ot  - L/c 


where  the  symbol  0 designates  the  order. 

\ typical  value  of  U is  60  fps  while  c is  about  5000  fps.  Hen*  e 
du  U* 

dx  q L U 5d  i 

du  z U c 5000  1 0(1 

dt  L/c 


1 fence  u(du/dx)  and  similarly  t(du/0r)  may  be  neglec  ted  when 
rc'mpared  with  du/dt. 

Jn  equation  ( I ) the  viscous  terms 

(\  /'.))d/dx[dv/dr  -f  r/r) 


may  be  neglected  as  they  vanish  when  integrated  across  the  cross 
hi“  t ion  with  respect  to  r from  r - (I  tor  - a:  i.e  , 


l 0 
3 dx 


It  is  now  shown  that  the  viscous  term  (4  3)J’ii  dx7  in  that, 
equation  may  also  be  neglected. 

I,et  u be  of  order  U,  x of  order  L,  and  r of  order  tL  where  t « 1 
Then  we  have 

4 d*ii  4 U 

0 - 

3 dx7  = 3 I.7 

O’U  l ’ 

0 

0rJ  : OL 

and 

1 J,‘  o r 

r Or  - t*L* 

1 lencc,  d3u/dr7  » 4 /Sfd'u/Oj1)  and  (I  r)  du  Or  » ( 4 /3  / Ox*. 
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HYDRAULIC  FLUID  DATA 


APPENDIX  B 


HYDRAULIC  FLUID  DATA 

The  FLUID  subroutine  described  in  paragraph  8.2  of  this  report  uses 
basic  fluid  data  for  viscosity,  density,  and  adiabatic  bulk  modulus.  This 
appendix  discusses  fluid  data  sources  and  the  correction  of  fluid  data  from 
atmospheric  to  operating  pressure.  Tabulated  data  currently  input  in  the 
FLUID  subroutine  are  presented. 

Unfortunately  fluid  data  are  not  as  readily  available  as  one  might 
imagine,  particularly  for  the  adiabatic  bulk  modulus.  In  literature  searches 
for  fluid  data,  one  concludes  that  much  of  the  required  information  is  not 
available,  or  is  not  traceable  to  specific  measured  data.  One  may  also  find 
considerable  information  on  base  fluids,  but  little  on  the  formulated  version 
actually  used  in  hydraulic  systems.  Required  information  is  either  untrust- 
worthy or  not  available. 

In  general,  data  should  be  obtained  for  the  usable  temperature  range  of 
the  fluid  so  that  there  are  no  limits  to  the  system  simulation.  For  aircraft 
design,  this  is  typically  over  the  range  of  -65  to  300°F.  Data  is  currently 
input  in  FLUID  for  nine  temperatures;  -65,  -40,  0,  50,  100,  150,  200,  250, 
and  300°F. 

Bl.O  VISCOSITY 

Viscosity  data  is  input  in  the  FLUID  subroutine  in  units  of  centi- 
2 

stokes  (CM  /SEC/100)  for  zero  gage  pressure.  Viscosity  is  converted  to  the 

2 

English  unit  Newt  (IN  /SEC)  in  the  FLUID  subroutine,  after  viscosity  has  been 
interpolated  to  the  operating  temperature  (TEMP) . 

Viscosity  is  then  adjusted  to  the  operating  pressure  (PRESS)  using  the 
expression  from  Reference  (Bl) : 

VISC  = VISC  eB 
P ° 


where : 


= COEFFA  x PRESS  x 2.3  x 10~4 

2 

= Kinematic  viscosity  (IN  /SEC)  at  atmospheric  pressure 
(o  psig) 

2 

= Kinematic  viscosity  (IN  /SEC)  at  pressure  (PRESS) 


PRESS 


Steady  state  fluid  operating  pressure  (psig) 


= Napierian  logarithm  base  = 2.718 


COEFF 


Pressure  coefficient  derived  from  the  Figure  B-l  PRL 


chart  from  Reference  (Bl) 

A = (t'eKP+460)  = Temperature  correction  for  the  pressure  coefficient 
based  on  a 100°F  reference 

2.3  = Factor  to  account  for  PRL  chart  being  plotted  to  base 

10  logarithm  instead  of  base  e. 

The  pressure  coefficient  derived  from  the  Figure  B-l  PRL  chart  is  based 
on  the  atmospheric  viscosity  (centistokes)  at  100°F  and  the  ASTM  slope  from 
the  Figure  B-2  viscosity-temperature  chart.  E.  E.  Klaus  of  Pennsylvania 
State  University  confirmed  that  the  Figure  B-l  chart  was  prepared  in  error 
using  common  in  lieu  of  Napierian  logarithms,  thereby  requiring  the  2.3 


factor  noted  above. 

If  the  pressure  coefficient  is  not  available,  it  is  probably  better  to 


estimate  a value  from  a chart  on  a similar  fluid  than  to  omit  viscosity 
pressure  correction.  Viscosity  data  and  pressure  coefficients  currently  in 


FLUID  are  tabulated  in  Table  B-l. 


t 


B2.0  BULK  MODULUS 

FLUID  uses  the  adiabatic  (isentropic)  bulk  modulus  (LBS/IN^)  of  the 
fluid.  Adiabatic  bulk  modulus  applies  under  conditions  where  pressure  changes 
are  rapid,  and  is  greater  than  the  isothermal  tangent  bulk  modulus  by  the 
ratio  of  the  specific  heats  (C^/C^)  of  the  fluid.  Isothermal  tangent  bulk 
modulus  is  the  thermodynamically  correct  value,  and  represents  the  true  rate 
of  change  in  fluid  elasticity  at  the  steady  state  pressure  of  interest. 

Unfortunately,  adiabatic  bulk  modulus  data  are  not  readily  available. 
Based  on  a literature  search,  the  best  source  of  adiabatic  modulus  data  is 
currently  the  National  Research  Council  of  Canada  (contact  W.  J.  Noonan). 

The  Canadian  source  offers  published  information  on  direct  measurements  of 
adiabatic  modulus. 

Adiabatic  modulus  data  may  be  derived  from  isothermal  tangent  bulk 
modulus  available  from  Penn  State  (E.  E.  Klaus).  However,  specific  heat 
ratios  available  from  a paper  written  by  Peeler  and  Green  in  1959,  were 
derived  by  measuring  the  adiabatic  bulk  modulus  and  comparing  it  with  the 
isothermal  modulus. 

In  a report  dated  24  June  1972  the  data  for  MIL-H-5606  (presumably  'A' 
type)  and  MLO-7261  (which  is  said  to  conform  to  MIL-H-83282)  is  given  versus 
temperature  and  pressure.  This  data  was  presented  to  the  SAE-A-6C  Committee 
in  October  1972. 

Adiabatic  bulk  modulus  data  for  0 psig  as  shown  in  Table  B-2  are  input 
to  the  FLUID  subroutine,  and  interpolated  to  the  operating  temperature  by 
FLUID.  These  data  are  then  corrected  to  the  steady  operating  pressure  (PRESS) 
for  all  three  fluids  currently  in  FLUID  using  the  expression: 

BULK  * BULK  + 12  x PRESS 
P o 


Bl-4 


where:  BULK  - adiabatic  modulus  at  pressure  (PRESS) 

P 

BULK  - adiabatic  modulus  at  0 psig. 
o 

The  factor  (12)  is  based  on  bulk  modulus  versus  pressure  plots  for  the  three 
fluids  and  is  considered  a good  average  value  for  pressures  up  to  3000  or 


4000  psig. 


1 


B3.0  FLUID  DENSITY 

Fluid  density  data  are  normally  available  from  sources  such  as  Penn  State. 
These  data  are  normally  obtained  in  the  course  of  measuring  the  isothermal 
secant  bulk  modulus,  which  is  based  on  the  volumetric  change  from  atmospheric 
to  the  pressure  of  interest. 

Fluid  mass  density  at  atmospheric  pressure  per  Table  B-3  is  input  to 
the  FLUID  subroutine  for  -65°F  and  +275°F  only,  and  interpolated  linearly  to 
the  operating  temperature.  Density  is  then  corrected  to  the  operating 


pressure  using  the  expression 

PRESS 


RHO 


RHO 


h + ■ -p-RE_s_s\ 

o ^ 250,000  ) 


LB *SEC  /IN 


p o V 250, 

where  250,000  (psi)  is  an  average  secant  bulk  modulus  at  operating  conditions 


for  all  three  fluids. 


Pressure  Coefficient  a,  psig 


FIGURE  B-2 

ASTM  VISCOSITY-TEMPERATURE  CHART 


KINEMATIC  VISCOSITY  (Centistokes)  at  0 psi 


Reference 


COEFF 


MIL-H- 

5606B 

MIL-H- 

83282 

SKYDROL 

500B 

1993.5 

11446.9 

3485.5 

482.3 

2019.3 

598.0 

134.4 

269.4 

104.18 

34.85 

48.87 

27.9 

14.47 

15.95 

11.7 

7.46 

7.46 

6.5 

4.58 

4.24 

4.18 

3.19 

2.83 

2.89 

2.39 

2.04 

2.15 

(B2) 

(B2) 

(B3) 

TABLE  B-l 

Viscosity  Data  in  FLUID  Subroutine 


TABLE  B-3 


Fluid  Mass  Density  Data  in  FLUID  Subroutine 
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